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I INTRODUCTION 

The programs pn.eAtnte.di here are set out for the. individual who has a specific 
need in mind. Because a detailed discussion o^ these programs would require a 
text several time* the present size oh this Library it has been omitted. Indi- 
viduate who have a specific requirement will have to be at least knowltdgeablt 
in the aAea the program is written about; ie: Statistical programs require the 
user to be familiar with the terms mean, median, etc. This is becau&e the pro- 
grams ant written in the vernacular o$ theiA subject matter. With thi& know- 
ledge alone, no programming expedience on the pant o& the u&en. i& required in 
order to use any oi these programs in most systems. Once it is determined that 
a particular program may be useful the user meAely types in a copy ofi the BASIC 
source code exactly as it appears in the program luting. Then follow the in- 
structions for nunning the program as presented in the Instruction portion oi 
the white up, immediately preceding the program. Also included in the write ups 
are statements that appeau in the source code which may possibly need to be 
changed to run in the user's computer system; ie: RWP statements may have to be 
changed to FRAWP in order to compile in certain systems. 



PUBLISHERS NOTE: Appendix B included at the end of Volume V was not 
mentioned in the preface by the author. We feel this appendix is 
the most important single item included in this library. We see 
this appendix as a fore runner that might lead the way toward 
standardizing a computer language among the manufacturers. This is 
in addition to the obvious benefits to all users of this Basic 
Software Library. 
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Business & Personal Bookkeeping Programs 

DESCRIPTION 

Computes price and interest for bond purchases. 

Analyzes the cost of building design proposals. 

Computes effective compound interest rates. 

Determines seasonal coefficients for two cycles. 

Makes a lease/buy decision for you. 

Makes a decision on whether to buy a component or make it. 

Calculates depreciation by k different methods. 

Cal. the most efficient assignment of resources and/or personnel 

Predicts your yearly cash flow. 

Performs monthly installment accounting. 

Computes interest accruals, monthly. 

Computes annual rates of return on investments. 

Makes a comparison of mortgage terms. 

Optimizes the layout for a plant, shop, office, etc. 

Determines your economic order quantity for inventory items. 

Performs an analysis of a pert network. 

Computes true annual interest rates. 

Computes lessor's rate of return for uncertain assets. 
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Games & Pictures 

DESCRIPTION 

Teach the computer all about animals. 

Land your spaceship on another planet. 

Advanced number game, numbers may be algebraic, few clues. 

Calculate your Bio-Life Cycle and plan your days. 

An advanced war game with big guns. 

Plays a regulation game of checkers. 

A dice game with hard way odds. 

Air fight w/misslles; betweeen a phantom and a mig. 

Plays any number of holes; inc. obstacle course. 

Have a rap session with Judy via your computer. 

Simple number game, all you have to do is unscramble them. 

Authentic horse race, any number of players. 

Gamblers delight, plays Las Vegas rules. 

Sky dive on another planet 

A war game between two tanks. 

Teach the computer to learn new things. 
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DESCRIPTION 

Introduction 

He's absolutely MAD! MAD! MAD! 

Our 35th. president. 

Loveable "Peanuts" character, w/blanket. 

A modern miss to put a twinkle in your eye. 

Former "United States" president. 

Christmas or anytime this is a beautiful creation. 

A true work of art for anyone's gallery. 

A message for all seasons. 

True and blue, he's the law. 

In banner form, perfect for decorating the mantle. 

That paragon of Dogdom even plays football. 

A picture you can read as well as see. 
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Math & Engineering Programs 

DESCRIPTION 

Evaluates and selects steel beam sizes. 
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Calculates low pass filter components. 
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Calc. the max. & min. values of funct. over a spec, interval. 

Calc. position from altitude and azimuth of celestial bodies. 

Calculates Blackbody energies, w/filter look-up tables. 

Calculates Sun and Moon positions, hourly. 

Calculates Power Spectral Densities and FFT's. 

Generates random numbers between and 1 . 

Generates random integers between (X) and (Y) . 

Solves polynomials by "Bairstows Method". 

Solves any spherical triangle. 

Locates 50 stars (celestial). 

Calc. course and distance and incremental vectors. 
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Finds all variables in Basic programs. 

Calc. final position; given start and motion vectors 
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Calculates binomial probability distributions. 

Applies the Chi-Square test to samples. 

Calc. coefficients of fourier series to apprx. a function. 

Calculates confidence limits on linear regressions. 

Calculates confidence limits for a sample mean. 

Performs auto and cross correlations with plots. 

Fits 6 different curves by the least squares method. 

Calculates difference of means in non-equal variances. 

Plots two functions on the same sheet. 

Calculates exponential distributions for a sample. 

Performs least squares fit by linear, exp. , or power function. 

Compares 2 groups of data using the rank test. 

Plots 6 equations on the same sheet. 

Plots data points on standard teletypes. 

Performs least squares polynomial fit. 

Performs multiple linear fit with or without transformations. 

Finds the mean, variance and standard deviation. 

Computes various stat. measures for a variable. 

Calculates normal and T-distributions. 

Compares 2 groups of unpaired data. 

Performs one way analysis of variances. 

Analyzes a variance table of one way random design. 

Plots functions of X and Y. 
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DESCRIPTION 

Performs posting and billing of accounts. 

Maintains data for inventory records. 

Computes payrolls with full set of deductions. 

Performs a risk analysis on capital investments. 

Performs the most effi. scheduling of men or resources to loca. 
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DESCRIPTION 

An age old favorite. "B9, C23 s D4, E13 s F21, BINGO! 

Computes the yields for a bond for different periods. 

If you ever dreamed of being a Matador, here's your chance. 

Take charge of the Enterprise while Capt. Kirk is on leave. 

Authentic NFL version of this well known sport. 

Calculates long-term predictions of funds. 

Plots the results of Funds 1. 

Ancient Chinese game of chance. 

Plays Blackjack, Las Vegas style. 

Life is truly a battle for survival, a real challenger! 

Calculates annuities, loans and mortgages. 

Generates unique maze puzzles for you to solve. 

Five card draw - for up to 5 players. 

Performs population projections for defined areas. 

Determines the profitability of a firms various depts. 

3-Dimensional Tic-Tac-Toe. 

Calc. the effective annual interest rate for stated interest. 

Calculates your Civil Service Retirement benefits. 

Computes savings plan profiles. 

Calculates repayment schedules for SBA loans. 

An all time favorite for young and old alike. 
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Andy Cap Draws this famous cartoon character. 

Baseball Plays a full 9 innings of baseball. 

Compare Compares two groups of data. 

Confid 10 Determines the confidence limits for a normal population. 

Descrip Provides a description of uni-variant data. 

Differ Computes the diff. of the means for data of equal variance. 

Engine Calculates the otto cycle of engines. 

Fourier This program evaluates fourier series. 

Horse Draws a picture of a horse. 

Integers Computes integers as the sum of other integers. 

Logic Determines conclusions from logic statements. 

Playboy Draws the playboy symbol. 

Primes Factors numbers into their primes. 

Probal Calc. Chi-Sq. and probabilities from 2X2 data sets. 
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Solves quadratic equations 

Draws a picture of the infamous Red Baron. 

Calculates linear regressions. 

"Beep! Beep!" Draws a picture of the Road Runner. 

Computerized "Wheel of Fortune", plays roulette. 

Old Saint Nick appears as jolly as ever. 

Calculates quantities for two groups of paired data. 

Computes sample statistics. 

Calculates steel beam capacities. 

Computes cost for surfacing a road or driveway, etc. 

Performs an analysis of a vari. table; one-way random design. 

Generates a "SINGING" Christmas card. 
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A Complete Business System 
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Ledger 



Maintains ALL Company accounts and generates ALL financial 
reports. Includes routines for: Pyrl , Inv, Depr, A/R, A/P, 
Balance Sheets and Profit 6 Loss statements, etc. 
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PREFACE 

The information contained in these pages represents the culmination of a 
very large project. That of compiling a versatile and complete Software 
Library that will be of use to a large number of diverse individuals. The 
programs presented here when combined in a system will represent a very 
powerful library bank. Such a work as this has been attempted in the past 
in such areas as cook books, electronic source books, mathematical tables 
and even computer games. But to date such a collection as this has yet to 
be offered to the average individual to use as he chooses. The word "at - 
temped" was used as no work is ever considered complete by everyone regar 
dless of its thoroughness. 

The programs presented here were chosen for their uniqueness and general 
usefulness. There should be at least one program included that will be of 
use to every type of individual whether they have access to a computer or 
not. Computers are a wonderful and very useful tool. Through this Library 
I hope to interest more people into becoming involved with computers. The 
Library Ss written so that little or no computer programming experience 
is required to Invoke any of the programs. The programs that are present- 
ed here are all written in the computer language called BASIC. Each pro- 
gram has been successfully run on a G.E. 635 computer. The entire source 
code is presented as well as a short narrative page which defines the pro 
gram, tells who might be interested in using it, a brief set of instruc- 
tions or how to get them and then any limitations in the program are no- 
ted. In the limitations section the storage length in K Bytes is given so 
the prospective user will know how much memory to allow for the program. 
Where possible the amount of memory space required for full execution is 
given for the programs, this space is independent of the space already oc 
cupied by your BASIC compiler. 

The programs are broken down into five sections or parts. Each part deals 
with a specific type of program. Part 1 contains business type programs. 
These programs will be of interest to individuals who have businesses, 
play the stock market, balance their own checkbooks, do installment buy- 
ing, figure taxes, etc. There are a total of 20 programs in this section. 
Part 2 is the lighter side of the Library as it contains 16 games and 12 
picture programs. No computer library is complete without some fun. Among 
the games presented in this section is one called Checkers. The game is 
rather long but it is virtually machine independent as it doesn't use over 
lay techniques or use files. Most of the other games included here are as 
exciting as this version of Checkers. Each was chosen so as not to mimic 
others that the reader may have seen. The pictures are as unusual in their 
own way as are the games. Most of the pictures are spread over several pa 
ges, this was done not only so the reader will need to run the program to 
see the details of a particular picture but also in the hopes of getting 
as many of these programs Into use as possible. As the picture programs 
are very simple it is an easy place for the novice to start learning about 
programming. 

Part 3 is comprised of Math and Engineering programs. Some of these programs 
will be of use to high school students, professional people, sailors, engi- 
neers, astronomers, airplane pilots, etc. Most of these programs are very 
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technical but they can perform every day calculations quickly and easily 
and they are extremely simple to use. There are 23 general usage programs 
presented Sn this section. 

Part k Is made up of Plotting and Statistical Analysis programs. These 
programs can be readily utilized by a number of people in widely differ- 
ent disciplines from fishermen to statisticians. The data gathered may 
be from a poll, a census , a test sample or even the number of fish cau- 
ght on various days. The stat programs will be of invaluable aid to any- 
one who gathers data of any kind. The plotting routines will be of use 
to most of the people who use the stat programs or programs in Parts 1 
and 3. The plotting is done on any standard teletype or terminal and 
does not require a special plotter or plotting terminal. There are a tot 
al of five direct plotting programs and 18 stat programs in this section. 

All of the programs presented here may be run by simply typing the source 
code as listed,, exactly as it is, into your computer. Now before the pro- 
gram will run it will have to be converted into machine code. This is done 
automatically and requires no forethought except to make certain the oper- 
ating system you are working In Is BASIC. In the larger computer systems 
you are asked what system you want - — to this type BASIC; the smaller sys 
terns only have BASIC, in these you are O.K. 

Immediately following Part k is Appendix A. Here 8 all of the Basic State- 
ments used throughout these pages are defined. Each statement is explained 
sufficiently well to enable one unfamiliar with this subset to modify any 
necessary statements so that the program or programs will compile and exe- 
cute with the Basic compiler or interpreter available with their particu- 
lar computer. Most of the Basic compilers available today,, that require 
more then 10K Bytes of storage s will execute all of the programs presented 
in these volumes with the possible exception of a few of the games and the 
program "Variable". Multiple line statements are not used in most of the 
programs and only a few programs use string manipulations extensively. A 
few of the programs may require more on line storage then is available on 
some of the small micro computer systems; these longer programs will not 
be executable due to the limited amount of memory. However most of the 
programs will execute in 10K Bytes of memory or less, thereby making most 
of the programs In this Library executable in virtually any Basic speaking 
computer without any required modifications. 

Volume 111 is comprised of ADVANCED BUSINESS programs, part 5- This volume 
as well as subsequent volumes are intended to make this Library complete 
and useful to all individuals. 

Each of these programs are written in a subset of the Dartmouth language. 
The specific subset is that which was used by General Electric on their 
635 systems. These programs have operated without problem on a variety of 
small and large machines even several of the new micro computers. The pro 
grams that use String manipulations may require slight modifications be- 
fore fully executing on some systems. These programs are mainly found In 
Part 2 — Games. 
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All of the programs In this Library were written or edited by the author. 
All of the programs edited by him were given for Inclusion, "swapped" for 
traded, or made public. A few of the original authors of the "swaps" are 
not known, for this I apologize. The others, unless specifically mentioned 
In the text, are presented here. In addition I would like to thank the fol 
lowing for their cooperation In making this work possible. 



ACKNOWLEDGMENTS 



MY WIFE MARY AND MY FAMILY 



DONALD ALVAREZ 
DAVE BEETLE 
MORTON BERGER 
COPY CAT INC 



GE TIMESHARING 
BILL JONES 
GEORGE LONG 
TOM ROSE 



ARTWORK COURTESY OF 



MELISSA 



Xlll 




xiv 



PART 5 



ADVANCED BUSINESS 



PROGRAMS 



BILLING? 

DESCRIPTION 

This is a Billing and Accounts Receivable program. It does not use any exter- 
nal data files. All of the data is self contained within the program. It gen- 
erates the following five kinds of reports: Mailing labels, Customer bills,, 
A/R s Sales and a last purchase report. 



igr-.frrcLr'l J. JLFf 1 1 

This program would be used by individuals or companies engaged in selling 
merchandise or services. 



INSTRUCTIONS 

All of the customer and billing data must be updated in data statements be- 
fore the program is run. Initially the data must be input to the program, 
then, after the first execution, the program with the data included is saved 
on paper or magnetic tape. After this the data only needs to be updated as 
it changes. List the program for detailed information about data entry and 
updating. 



LIMIIMIIMS. 

As this program does not use Use Files it should execute in any Basic speak- 
ing computer that has sufficient on line storage. The program is set up with 
sample data that must be removed before entering your data. It is set for a 
maximum of 100 customers. This number is set in the DIM statements on lines 
1100 and 1120. The source code requires 12K Bytes of memory for program stor- 
age. The amount of memory required for execution is a function of the number 
of customers you have. This is set in the DIM statements. With it set for 100 
customers the program will require about 31K Bytes for execution. Included 
after the source code listing is an executed run using the data presently con- 
tained in the program. 
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REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



THIS IS THE BILLING AMD IVR PROGRAM 
FOR FULL MOD IF" TORTIOUS LIST THE PROGRRM 
THIS PROGRAM IS WRITTEN IN BASIC 
IT DOES NOT USE EXTERNAL USE FILES 



ALL UPDATING IS TO BE 
CREATED BY SCIENTIFIC 
ALL CUSTOMER DATA IS 
EACH TIME THE DATA IS 
IN CUSTOMER STATUS A 
BE MADE. EITHER ON TAPE 
EACH TIME THE PROGRAM T 



HONE BEFORE EXECUTION 
RESEARCH INST. 

CONTAINED IN THE DATA STATEMENTS 
UPDATED TO INCORPORATE CHANGES 
NEW COPY OF THE PROGRAM SHOULD 
OR PAPER THEN 
RUN THE NEW COPY 



WILL BE USED TO INPUT THE PROGRAM TO 
THE COMPUTER? THE PROGRAM IS SELF PROMPTING 
AND WILL ASK ALL NECESSARY QUESTIONS. 
THE SUBSCRIPT (188) USED IN THE DIM 
STATEMENTS; IS THE MAXIMUM NUMBER OF 
CUSTOMERS THIS PROGRAM IS SET UP TO HANDLE 
TO INCREASE THIS NUMBER TO ANY OTHER NUMBER 
SIMPLY CHANGE THIS NUMBER TO THE DESIRED mSTRMFF 
LEUEL IN EACH OF THE DIM STATEMENTS INI TALLY 
BEFORE THE DATA IS INPUT TO THE DATA STfiTMFNTS. 
THE DATA STATEMENTS ARE USED TO UPDATE THE 
A.-R EUERY PERIOD. WHATEUER THIS PERIOD HAPPENS Tfi 
BE. THE DATA STATEMENTS ARE ARRANGED IN FOUR (4) 
LINE ORDERS FOR EASE OF DATA ENTRY AND UPDATING. 
THE FIRST LINE CONTAINS RELATIUELY UNCHANGING DATA 
LINE TWO CONTAINS PAYMENT INFORMATION 

LINE THREE CONTAINS THE NUMBER OF SALES FOR A n ISTHMFP 
LINE. FOUR CONTAINS SALES DATA - ONE SALE ON EACH LINE 
THE NUMBER OF THESE SALES LINES MUST BE. CONTAINED 
IN DATA LINE NUMBER THREE OR THE PROGRAM WH L NfiT PUN. 
THE FOLLOWING UARIABLES ARE USED IN THIS PROGRAM 
N1=NUMBER OF CUSTOMERS 
D£=REPORT DATE 
NiI)=ITEM # 

E$(I)=ITEM DESCRIPTION (11 CHARACTERS OR LESS PLEASE l 
flfU =CUSTOMER ACCOUNT # 

N$ ( I ) =CUSTOMER NAME (£@ CHARACTERS OR LESS"! 
R5 ( I 1 =CUSTOMER STREET ADDRESS 
S$ ( I ) =CUSTOMER CITY & STATE ADDRESS 
S ( I 3 =QUANT I T Y SH I PPED 
A£(I)=DATE SHIPPED 
EX: 1£..- 17^75 
B(I)=# OF ITEMS PURCHASED BY CUSTOMER 
P(I3=SELLING PRICE (LESS SALES TAX) 

U(I)=CUMULATIUE AMOUNT PAID ON PRESENT fiflLER 

U$CI.1=DATE OF LAST PAYMENT 

r--.'» I :• ,";.( ,-7S 
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I860 REM 

i lee dim m; is©) ?e$(100:i ?flfi00:i jNsaes) jRsaoo) ?s$( 100) jscise) 

1 1 £0 D I M A£ f 1 00 J ? E C 1 00 ) ? P ( 1 00 ) 5 U ( 1 00 1 j U$ ( 1 00 ) 

1140 REM CHRNGE THE ABOUE SUBSCRIPTS TG EQUAL YOUR NUMBER OF CUSTOMERS 

1180 Ml =5 

1800 REM CHANGE THE flBOUE Ml # TO EQUAL THE NUMBER OP CUSTOMERS 

1£28 REM THAT ARE ENTERED IN YOUR DATA STATEMENTS. 

1240 REM 

1260 S=.04 

1£88 REM S IS THE SALES TAX PERCENTAGE 

1800 PRINT 

1388 PRINT 

1348 PRINT 

1368 PRINT 

1338 PRINT 

1400 PRINT " THIS IS THE BILLING AND ACCOUNTS RECEIUEABLE PROGRAM ' 

1480 PRINT 

1440 PRINT 

1480 PRINT 

1488 PRINT "TYPE IN TODAYS DATE? AS: 1.-14--75 "5 

1500 INPUT DS 

1588 EOR 1=1 TO Ml 

1548 READ fid) »N$(I) »R$ ( I ) »S£(I ) iU( I) »U$ ( I) , B C I ) 

1568 IF BCI)=0 THEN 1640 

1588 FOR 11=1 TO BCD 

1 680 READ ES ( I ) ? N d ) ? fi$ (I)»S(IJ»P(I ) 

1680 NEXT II 

1648 NEXT I 

1660 PRINT 

1680 PRINT 

1788 PRINT 

1780 PRINT 

1740 PRINT 

1760 PRINT 

1788 PRINT 

1888 PRINT "THE FOLLOWING IS A LIST OF REPORTS THAT THIS PROGRAM" 

1820 PRINT "WILL GENERATE. TO CHOOSE ONE TYPE IT'S NUMBER WHEN ASKED." 

1848 PRINT 

I860 PRINT " 1 -• PRINT MAILING LABELS " 

1888 PRINT " 8 - PRINT UP BILLS " 

1900 PRINT " 3 - CUSTOMER A--R REPORT " 

1980 PRINT " 4 - SALES REPORT " 

1940 PRINT " 5 - LAST PURCHASE REPORT " 

I960 PRINT " 6 - STOP PROGRAM " 

1988 PRINT 

8809 PRINT "WHICH REPORT WOULD YOU LIKE TO RUN: "5 

8020 INPUT R 

2040 PRINT 

£060 IF R=6 THEN 8648 
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£080 IF R=l THEM ££00 

£109 IF R=2 THEN £7£0 

£120 IF R=3 THEM 4480 

£140 IF R=4 THEM 5£00 

£160 IF R=5 THEM 6340 

£180 GOTO I860 

££00 REM THIS SUE GENERATES THE MAILING LIST 

2220 PRINT 

2240 PRINT " THIS IS THE MAILING LIST ROUTINE " 

£'260 PRINT 

2280 PRINT "WHEN YOU HAUE THE LABELS IN PLACE TYPE' A 7 

£300 INPUT Z£ 

OOOfl "71 — *=" 
i— \-'iu_£? c~. X ~ '-J 1 

£340 FOR 1=1 TO Zl 

£360 PRINT 

£380 NEttT I 

£400 LET Z=3 

£420 FOR 1=1 TO Ml 

£440 print taei:z);ai:i) 

£460 PRINT TABi:Z}5N$m 

£480 PR I NT TAB ( Z ) 5 R$ ( I ) 

£500 PRINT TAB(Z) 5 S$ ( I 1 

£520 PRINT 

£540 PRINT 

£560 PRINT 

£580 NEtfT I 

£600 PRINT 

£6£0 PRINT 

£640 PRINT 

£660 PRINT "END OF THE MAILING LIST ***■*:«»; » 

£680 PRINT 

£700 GOTO 1660 

£720 REM THIS SUB GENERATES THE BILLING LIST #£ 

£740 B1=0 

£760 B£=0 

£780 B3=0 

£800 REM THE FORMRT OF THE BILL PRINTING IS AS FOLLOWS 
REN PAGE ONE PRINTS THE MAILING ADDRESS 
REM DATE 



:■!=!:=>£ 



.o* 



£860 REM ACCOUNT* 
£880 REM CUSTOMER NAME 
£909 REM STREET ADDRESS 
£920 REM CITY STATE 
£940 REM 
£960 REM 
£986 REM 

3090 REM ITEMtt DESCRIPTION QUANTITY DATE SHIPPED UNIT PRICE 
3©a© REM 
3040 REM 
3060 REM 
3080 REM 



sana 



a a a a 
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'THIS 
'WHEN 



TO 



GENERATES 
THEY ARE 



THE PRINTING OF 
IN PLACE TYPE A ' 



REM TOTAL AMOUNT PR ID = S XXX. XX 

REM PATE OF THE LAST PAYMENT i £>-"£!• 

REM TOTAL PIECES SHIPPED XXXX 

REM TOTAL. SALES TAX ON SALE = ?• XX. XI 

REM TOTAL AMOUNT DUE = k******* $ 

REM 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT Z 

LET Z=7 

FOR 1=1 

PRINT 

NEXT I 

LET Z=iS 

RESTORE 

FOR 1=1 TO Ml 

LET Z£=65 

LET Z=5 

READ n ( I ) j MS ( I ) » R£ V I ) 

ip ECI)=0 THEN 4300 

PRINT TFffiCZ) JRCI) 

PRINT TflB(Z) 5N$(I) 

PRINT TRB(Z) ;R$(I) 

PRINT TflB(Z) 5S$(I) 



3 1 OS 
3 ISO 
3140 
3 1 SO 
3180 
3£@0 
3220 
3240 
3260 
32S0 
33O0 
3320 
3340 
3368 
3389 
3400 
3428 
3440 

3460 

3488 

3580 

3520 

3540 

3560 

3580 

369Q 

3620 

3640 

3666 

3688 

3780 

3720 Z7=65 

3749 PRINT TRB(Z7)jD£ 

3768 PRINT 

3788 FOR 11=1 TO B(I) 

3809 READ E£ ( I ) » N CI ) , AS ( I ) t S ( I J » P ( I ) 

382© 

3849 

3868 

3880 

3908 

3920 

3940 

3960 

398© 

4000 

4028 

4046 
4068 
4080 
4160 



s-ssse**?*:** 



THE BILLS 

7 . II ! 



S$ C I ) ? U ( I ) » US ( I ) » E ( I ) 



LET Zl=4 
FOR 13=1 
PRINT 
NEXT 13 
REM THIS 



TO Zl 



IS TO SKIP DOWN TO THE STATEMENT SECTION OF THE BILL 



PRINT TABCZ£i 5 

PRINT N C I ) » E$ ( I ) » S (I)*fl$(I)»P(I) 

B1=B1+S(I) 

B£=B£+S ( 1 3 *P i: I ) 

NEXT II 

PRINT 

PRINT "TOTAL AMOUNT 

PRINT "DATE OF LAST 

PRINT "TOTAL PIECES 

B3=B£»S 

B3=1NT ( . 5+10@*B3) /I 00 

PRINT "TOTAL SALES TAX RMT. 

B£=B2+B3-U(I1 

B£= I NT ( . 5+ 1 0@*B£ ) -" 1 00 



PAID 

PAYMENT = 
SHIPPED = 



i u r I ) 

i US ( I ) 

!B1 



1B3 
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4 1 £6 
4149 
4 1 60 
4 1 80 
4 £00 
4££0 
4 £40 
4 £60 
4 £80 
4300 
43£0 
4340 
4360 
4380 
4400 
44£0 
4440 
4460 
4480 
4 5 £10 
45£0 
4540 
4560 
4580 
469© 
46£0 
4640 
4660 
4680 
4700 
47£0 
4 f' 4W 
4768 
4780 
4860 

4 see 

4840 

4869 
488© 
4999 
4920 
4940 
4969 
4989 

5009 

50£@ 
5040 
50.60 
5080 
5180 
5120 



i;j;g;n 5KW5Ki«5«5«W*;»:5K " 



1 ? Ti:S 



PRINT "TOTAL AMOUNT DUE = w:<-:ssr*;s;a:*as; 

LET Z5=10~BCD 

FOR 16=1 TO Z5 

PRINT 

NEXT 16 

REM THIS IS TO SKIP TO THE NEXT BILL HE AD. 

B'1=0 

B£=0 

B3=0 

NEXT I 

Z=i£ 

FOR 17=1 TO 2 

PRINT 

NEXT 17 

PRINT "END OF THE BILL PRINTING SEQUENCE." 

PRINT 

PRINT 

GOTO 1660 

REM THIS SUB GENERATES THE CUST. A.-R REPORT #:-: 

LET Bi=0 

LET E£=0 

LET B3=0 

PRINT 

PRINT 

PRINT " C U S TONERS A •- R R F P fi P T 

PRINT 

PRINT 

PRINT " ACC# "," A.--R £ " , " PAYMENTS".*" LS DATE"," CMfiT NAME" 

PRINT 

RESTORE 

FOR 1=1 TO Nl 

READ A ( 1 1 j N$ CD? R$ < I ) » S$ CD? U CDs US flliEfD 

IF B(I)=0 THEN 50£O 

FOR 11 = 1 TO BCD 

READ E$ ( D s N C D j H$ ( D ? S ( D ? P ( D 

T£=S ( D W i I ) 

T2=T2®C1+S) 

T£= I NT ( . 5+ 1 00*T2 ) -■" 1 @0 

B3=B3+T2 

NEXT I 1 

B3=INT i . 5+1 00*B3 ) s 1 00 

Bt*Bi+B3-U(I) 

ti&"B£+U ( I ) 

primt fldi) E3-U ( i j » u ( i ) f us (in" 

LET E3=0 

NEXT I 

PRINT 

PRINT 

PRINT 

PRINT "TOTAL PAYMENTS 

PRINT "TOTAL ACCOUNTS-'REC 



1 5 m f 1 1 



1 X'C 



—. .±-1! 

= i"«Bl 
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514@ 

5160 

5 1 80 

5£©0 

5££0 

5E40 

5£68 

5 £80 

5300 

53£0 

5340 

5369 

5380 

5400 

54£0 

5440 

5460 

5480 

5509 

55£0 

5540 

5560 

5580 

5 6 £10 

56£0 

5640 

5€'60 

5680 

5700 

57£0 

5740 

5760 

5788 

5800 

5850 

5840 

5860 

5880 

5900 

5930 

5940 

5960 

5980 

6000 

6020 

6040 
6060 
6088 

6100 

61S0 
6140 



PRINT 

PRINT 

GOTO 1660 

REM THIS SUB GENERATES THE SRLES REPORT BY DATE #4 

LET B1=0 

LET B£=0 

LET B3=0 

PRINT 

PRINT "WOULD YOU LIKE THE SALES REPORT TO COUER fl DATE" 

PRINT "OTHER THEN THAT OF TODAY (YES OR NO) "5 

INPUT Y$ 

PRINT 

IF Y$="NO" THEN 55£0 

IF Y5="N" THEN 55£0 

PRINT 

PRINT "INPUT THE SALES DATE FOR THIS REPORT " j 

INPUT m 

PRINT 

GOTO 5560 

let m=n$ 

PRINT 
PRINT 
PRINT " 
PRINT " 
PRINT- 
PRINT " flCC# 
PRINT 
RESTORE 
FOR 1=1 TO Nl 

READ A CI D N£ C D ? RS CD? 3S C D « U C I ) « US C D < B C D 
IF Bfl)=0 THEN 5900 
FOR 11 = 1 TO BCD 
READ E£ f D « N t D ? AS C D ? S t D j P C I :i 
IF QSOASCD THEN 5880 

PR I NT A C D ? N C D » S C I ) » S C I ) *P C I) I " " ? NS C I ) 
B1=B1+SCD 
BS=B£+S Q) *P ( I ) 
NEXT II 
NEXT I 

IF B1O0 THEN 5988 

PRINT "THERE WAS NO ACTIUITY FOR THAT DATE 
GOTO 6180 
PRINT 
PRINT 
PRINT 
PRINT "TOTAL PIECES SOLD THIS DATE 

T£= I NT C . 5+ 1 00*T£ ) --" 1 80 

PRINT "TOTAL SALES TAX THIS DATE 

PRINT "TOTAL RECEIPTS THIS DATE 



S ALE y 
j" ITEM#" 



R E P n R T F R " 5 QS 

TODAYS DATE "?D:= 

QUANTITY "»" SALES $"<" CUST NAME" 



TRY AGAIN ?" 



Bl 






TS 
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Page Was Missing From Book 



Page Was Missing From Book 



8 £00 


REM 


8££0 


REM 


8£4W 


REM 


8 £60 


REM 


8 £80 


REM 


8300 


REM 


83£0 


REM 


8340 


REM 


8360 


REM 


8380 


REM 


8400 


REM 


84£0 


REM 


8440 


REM 


8460 


REM 


8480 


REM 


8 5 £10 


REM 


ricr-ifj 
O-JCtl 


REM 


i-i c:- a f-i 


REM 


8568 


REM 


8580 


REM 


8600 


REM 


86£0 


REM LEflUE THESE " 


8640 


GOTO 10@@0 


8660 


REM THE PENRININt 


10008 EMU 



I uu 



JR DRTR FlROUNB THESE L TME8 



FHREE LIMES RLOHE - PU 

2 LIMES RRE RESERUEH FOR FUTURE EXPANSION. 
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Billing Modifications 

This program is written using elementary Basic statements for the most part. 
This was done to make it compatible with most computing systems on the market. 
By adding or modifying a few of the statements this program can be made to 
perform as well as a billing program costing thousands of dollars; just for 
rental . 

The first modification would be to use PRINT USING statements in place of the 
PRINT statements for the report print outs. This statement, which may not be 
included in a 5K Basic, will force the print outs to be columnar regardless 
of the field size or data content. Under PRINT statements for example, when 
prices are printed the trailing zeros are suppressed, if this happens in a 
dollar column the numbers may be miss read; See the sample listing - Report 
#2 (Westaim Sales Co.). To resolve this problem substitute PRINT USING state- 
ments to force all dollar amounts into a columnar format for the report print 
outs. Lines 3860, 3960, 4060 and 4120 should be changed to PRINT USING state- 
ments in order to modify Report #2. For Report #3, the A/R report, change the 
PRINT statements in program lines 4980, 5100 and 5120 to PRINT USING state- 
ments. Report #4 should have the PRINT statements in lines 5820, 6100 and 6140 
changed to PRINT USING statements and Report #5 should have the PRINT state- 
. ments in lines 6700 and 6840 changed. Line 6700 for Report #5 also contains 
the field designator which should limit the printing in the last field, custo- 
mer name, to avoid lap over problems. With these slight changes the print 
outs will for the most part conform to the format consistent with the stan- 
dard forms being used. As a final word about formatting the print outs, have 
your TAB( ) statements set to absorb variations in form widths. These TAB( ) 
settings may have to be changed slightly to initially line up with the forms 
you are using. For the mailing labels, Report #1, the tab control is in line 
2400. Line 3320 sets the number of spaces to initially skip to reach the first 
bill heading for Report #2 and line 3480 sets the number of spaces the name 
and address will be moved to the right on the bill heads. This name should 
appear through the window if used in window envelopes. Line 3620 adjusts the 
number of skips between the bill head and the first line of the bill body. 
17 in line 3720 sets the location of the statement date and Z3 in line 3820 
designates the start printing position for the billing data. Line 4140 is 
used to skip down to the head of the next bill. 

The only other modification that could enhance this program would be to re- 
move the DATA statements and change the READ statements to READ # statements. 
This must be accompanies with a FILES statement and WRITE # statements. When 
completed this program will read your customer data from a Use File. Upon in- 
clusion of WRITE # statements the program will update when applicable your 
customer data automatically. Some individuals prefer to store their data base 
in a Use File rather then DATA statements, however the way this program is 
written nothing is gained by doing this. If however, the PRINT USING, PRINT 
and READ # statements are merged then the program will execute in about 14K 
Bytes of memory even with 1000 customers which is a considerable savings in 
memory usage. As file manipulations are vastly different from system to sys- 
tem, to present this program in its compactest form would restrict its use 
to all but the particular computer it was written for, which would defeat 
the intentions of this Library. 
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THIS IS TIE BILLING HMD FlCCOl If -ITS RECEIUEABLE PRHGRFlM 



TYPE IN TODAYS {.iFlTE:? AS : L'14,'75 



THE" FOLLOWING IS N LIST OF' REPORTS THFlT THIS PROGRAM 
WILL GENERATE. TO CHOOSE ONE TYPE IT'S NUMBER WHEN ASKED. 

1 - PRINT MAILING LABELS 
£ - PRINT HP BILLS 

3 - CUSTOMER IVR REPORT 

4 - SALES REPORT 

5 - LOST PURCHASE REPORT 

6 - STOP PROGRAM 

WHICH REPORT WOULD YOU LIKE TO RUN: '"'1 

THIS IS THE MAILING LIST ROUTINE 
WHEN YOU HAUE THE LABELS IN PLACE TYPE A 7: 77 



37116 

WESTAIM SAI ES CO. 

3S7 W. CHERRY ST. 
MELROSE IL 37215 



45686 
REMINGTON COM 
£314 SHERWOOD RUE 
LAKESIDE TY 45217 



OMEGA I NIL CO 
PO BOY 4045 
STANFORD MJ 9126: 



78192 
If I GI TERN CO. 
3421 ST. LAWRENCE 
PASADENA CA 91195 
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El ID OF THE MAILING I..TST : *wsww 



THE FOLLOWING IS Fl LIST OF REPORTS THRT THIS PRnGRAM 
WILL GENERATE. TO CHOOSE ONE TYPE IT'S NUMBER WHEN ASKED. 

1 - PRINT MAILING LABELS 

£ - PRINT UP BILLS 

S -• CUSTOMER R.--R REPORT 

4 - SALES REPORT 

5 LAST PURCHASE REPORT 

6 - STOP PROGRAM 

WHICH REPORT WOULD YOU LIKE TO RUN: ?£ 



THIS GENERATES THE PRINTING OF THE BILLS 
WHEN THEY ARE IN PLACE TYPE A 7 : ?7 



37116 
NESTAIM SALES CO, 
3£7 W. CHERRY ST. 
MELROSE IL 37215 



55b 173 Fill J. PULLEY 35 11^18.-"75 ,-*,!=; 

87*512 WIRE MESH 50 12/1 1 .--75 4,;-fl 

136938 ADJ. WRENCH 30 13.-" 13/75 9.93 

231679 HAND SAW 14 1 -7V76 7.93 

TOTAL AMOUNT PAID = $ 711.26 

DATE OF L.AST PAYMENT = 12/ 17/75 

TOTAL PIECES SHIPPED = 109 

TOTAL SALES TAK AMT. = $ 49.45 

TOTAL AMOUNT DUE = aaaass-s-SKK-'S ■$ 574,51 s-ssKS-aia-BseKS: 
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REMINGTON CAN 
£314 '..HEPWOOD HUE 
LAKES IDE TK 45817' 



:69£8 fiTi.J. HRENCH 
14^61 PLASTIC ROD 



TOTAL flMOl IMT 
DATE OF LOST 
TOTAL PIECES 
TOTAL SALES " 
TOTAL AMOUNT 



PHin 

PAYMENT 
SHIPPED 
'flX ANT, 

doe: 



i-' t> 



& "& $ £-• #; & $ $| ;# ':# 



'*; ■>$ ;g ;& ;g $f |tf ^ & # 



DIGITRRN CO. 

34£1 ST. LAWRENCE 

PASADENA CA 91165 



,' d..-.: i- Dfc. 
745336 

i? 3 45 61 



ELEi":. DOM 
FUSE BLOCK 
PLASTIC ROD 



• 1 3--"76 



TOTAL AMOUNT PAID 
DATE OF LAST PAYMENT 
TOTAL PIECES SHIPPED 
TOTAL SALES TAX AMT. 
TOTAL AMOUNT DUE 



- -r- c. i .:■ n -.« 

= £'1^'76 

17 
= $ 11.9 



..SI 



:*:*&*:$-:#::$»:'*•£: 
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93B 16 
SUPERIOR FL.LC . 

reader pr i6st 



•„.. I 



'63 GLOBE y i ':;!-•■■ It- •■•- ■■ 

915333 FILE 7 1 . l.^c3T3 

334561 PL FISTIC ROD 3 13,--3,'T6 

AM -HAND SAW 1 l'd\W7£ 



i-"t- 



TOTAL AMOUNT PAID -• ? 113. 

HATE OF LAST PAYMENT = 

TOTAL PIECES SHIPPED = 

TOTAL SALES TAX ANT. = 

T|-|J|T|| plf'jfll If|T DAE' = SM3KK5K9KHK5K3KSK ■$ 16.1.4 ftSSSSffiSSSS 



d. 9:"; 



:MH OF THE BILL PRINT I MO SEQUENCE. 



THE FOLLOWING IS A LIST OF REPORTS THFlT THIS PROGRAM 
WILL GENERATE. TO CHOOSE ONE TYPE IT'S NUMBER WHEN ASKETL 

1 - PR If IT MAILING LABELS 

£ - PRINT UP BILLS 

3 - CUSTOMER A--R REPORT 

4 - SALES REPORT 

5 - LAST PURCHASE REPORT 

6 - STOP PROGRAM 
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HHICH REPORT UOULU YUU LIKE TO PUN 



C l.l 3 T 



i"! hi 



R E P O R T 



RCC# 



45696 
731.93 
93316 





F'FF 


•rn r 


tits 


L3 


574.51 






71 1 » 93 


13. '4 


3 » 94 






Pi. 7 if. 


1 .-- J.. ! 


;*:< " j „ \"jt x_ 






313., 5 


O P -i . 

:,~ . ■■ .j. -- 


1. :„' a J. *"(* 






113.. 35 


cV*6-'" 



BATE 



i 



:'T I'- 



iif: 



ICSTHTN SFiLF: 
REMINGTON r:fiH 
D1GITRAM CO,, 
3IJPFRI0P ELEO. 



CO , 



TOTAL PAYMENTS 

TOTAL ACOOUNTS--RET: 



= $ 1059.37 
=• £ 690.4 



THE FOLLOWING 13 Fl LIST OF REPORTS THAT THIS PROGRAM 
WILL GENERATE. TO CHOOSE ONE TYPE IT'S NUMBER WHEN ASKEB. 



••4 - 



PRINT MAILING LABELS 
PR TUT UP BILLS 
CUSTOMER A---R REPORT 
SALES REPORT- 
LAST PURCHASE REPORT 
STOP PROGRAM 
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IICH REPORT ' .rilJLLi YOU I.IKE TO PUN: 



WOULD VOU LIKE THE SALE'S REPORT TO COUER Fi 'DRTE 
OTHER THEN THFlT OF TODAY (YES OR HO) ?YES 



INPUT THE SFlL.ES DATE FOR THIS REPORT 91.""13.-"76 



Fi: E P OPT F R j. ■•-]. 3 '76 

TODAYS DATE 3.--8-'76 



Q 


HANTITY 


SALES < OUST NAME 


■::■ ( -.it' 


6 


177.96 DIGITRAN CO, 


5336 


6 


95.7 DIGITRAN CO. 



ACC# ITEMtt 

73193 7£ 
73193 ?i 



TOTAL PIECES SOLD THIS DATE : 13 
TOTAL SALES TAX THIS DATE : 10.95 
TOTAL RECEIPTS THIS DATE : 384.61 



WOULD YOU LIKE TO CHECH THE SOLES FOR ANOTHER DATE :?t"ES 

WOULD YOU LIKE THE SALES REPORT TO COUER A DATE 
OTHER THEN THAT OF TODAY (YES OR NO) 9YES 

INPUT THE SOLES DATE FOR THIS REPORT 91 ••31/76 

S A L E S P E P R T =" P __l.-"81.-76 

! QUAYS Hfl ! E 3--'8-- - 76 

ACC# ITEH# QUANTITY SALES %■ CUST NAME 

93316 331679 1 7.93 SUPERIOR ELEC. 



TOTAL. PIECES SOLD THIS DATE : 
TOTAL SALES TAX THIS DATE : 
TOTAL RECEIPTS THIS DATE : 
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JHICH REPORT WOULD YOU LIKE TO RUN: 3f 



L Fl S T P U P C :-! f! S E P F P n R T 3.--'3.-'76 



Fi 


l;c# 

371 16 
45686 
7319E 

933 1 6 


T T'P 


:m+ 


££1679 
£34561 
£34561 
£31679 


0! IfilT 


"I 


fr 


.1 4 

1 

!"■ 

i 

1 


HATE* 
1 ,.--"7 ..--"TV-, 

i.'"£9."7i 
SSI, St 



I, 



WESTS I M SRI E3 CO. 

REMINGTON CAM 
'DIG I TRAM ECU 

SUPERIOR ELEC. 



TOTAL LOST SALES : * 154.13 



THE FOLLOWING IS A LIST OF REPORTS THAT THIS PROGRAM 
HILL GENERATE. TO CHOOSE ONE TYPE IT'S NUMBER NHEN ASKED. 

1 - PRINT MAILING LABELS 

£ - PRINT UP PILLS 

3 - CUSTOMER A.-'R REPORT 

4 - SALES REPORT 

5 - LAST PURCHASE REPORT 

6 - STOP PROGRAM 

WHICH REPORT MOULD YOU LIKE TO RUN: 36 
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INVENTORY: 

DESC RIP TION 

This program is designed to keep track of all inventory data. The program 
does not use external data files for data handling as all of the data is 
contained within the program itself. Items are categorized according to 
their item #, class code, location, vendor code, etc. Data fields are pro- 
vided for item description, item cost, selling price, etc. The reports 
generated by this program include: (1) Activity Report, (2) Minimum Quan- 
tity Search, (3) Inventory List, (4) Inventory List by Class and (5) In- 
ventory List by Vendor. 



U S ER S 

Anyone who wishes or has need to categorize the items in their possession 
could use this program as well as the small businessman with supplies and 
stock records to maintain. This would include housewives with kitchen in- 
ventories, hobbyist with equipment and parts inventories, do-it-yourselfers 
with tools and hdwr. , and of course the small businessman or company. 



INSTRUCTIONS 

The data must be updated in the data statements before the program is run. 
The data is entered and handled in a similar manner as it is in the Billing 
program. This program is self documented and contains a full set of instruc- 
tions for data handling. List the source code for detailed information. 



LI MITA T IONS 

This program requires UK Bytes of memory for source code storage. The amount 
of memory required for program execution is a function of the size of the DIM 
statements in lines 1000 and 1020. It is presently set for 100 classes and 
100 subclasses. That amounts to a total inventory of 10,000 different types 
of items. With the size set to 100 the program will require 24K Bytes of avail- 
able memory for execution. A sample run of this program is presented at the 
end of this program. 
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TH 


1 E 




itiuentop't 


' f 


•'FT ii 


I-iRFlM 


f!Ui 


i j F 


l! 


:atiohs L 


T C 


■ i 


FT-IE FT 


:f= : f'.||.' 


| i 


;-■; 


HPITTFN 


lr 


j T't 


IS 1 C 


01" 


US 


E 


EXTERNAL 


L 


iSE 


FILET 



3 PC REM FOR Fl!|..L. f jfjliTF "If AT I CMS LIST TI-SF' PROGRAM 

140 REM THIS PROG 

160 REM IT DOE'S F 

J SO REM FILL UF'TlfiTOMG IS TO HE POME BEFORE. EHFT UTION 

POO RE.M CREATED .BY SCIENTIFIC RESEARCH INST. 

£:R0 REM fill.. THUENTOEY IJFiTFl IS CONTAINED IN TME DATA STflTEMFlF 

£■40 REM EACH TIME THE T'lRTFl IS UPDATED T'O INCORPORATE CHANGES 

£60 REM IM IMUEHTOEY STATUS Fl HEM COPY i"1F THE ppOGRFiN SHOI IL T 

£80 REM BE MADE. EITHER ON TORE OR FAPER THETI 

SO© REM EACH TIME THE PROGRAM IS RUN THE NEW EOF"!' 
RET! MILL BE USET'i TO ] NPI IT THE PEOGRFlN TO 



»_.' u... t 



I.-1 



J 



[-0 REM THE COMPI.ITE.Pj THE PROGRRM IS SELF PF'OMP 



60 REM FiMH WILL ASK' FIT NECESSARY QUESTIONS. 
380 REM THE SUBSCRIPT i ISO J USED IN THE TIM 
4O0 REM STATEMENTS IS THE MAXIMUM NUMBER OF 
4£0 REM IMUEHTOEY ITEMS THIS PROGRAM IS SET UP TO HANDLE 
440 REM TO INCREASE THIS NUMBER TO AMY OTTER NUMBER 
460 REM SIMPLY CHANGE THIS NUMBER TO THE' DFSIEE.D INUEMTuPY 
480 REM LEUEL IN EACH OF THE DIM STATEMENTS I HI TALLY 
500 REM BEFORE THE DATA IS INPUT TO THE: DATA SThTMENTS, 
5£0 REM THE DATA STATEMENTS ARE USED TO UPDATE IFF 
540 REM IMUEHTOEY EMERY PERIOD. WHATEVER THIS PERIOD HAPPEN'-; Tn 
560 REM BE. THE DATA STATEMENTS ARE ARRANGED IN TWO (£1 
580 REM LINES FOR EASE 3N UPDATING. THE FIRST LINE 
60O REM CONTAINS PET AT IUELY UNCHANGING DATA ~ LIKE 

6£0 REM THE ITEM#? CI RSS# ? UENDOR*? DESCRIPT ION- POSTS* L nr.flTiriN# 

640 REM THE SECOND LINE HILL CONTAIN THE UfiR TABLE DATA L IKE 

660 REM THE #0M HAND ? #SOLD THIS PERIOD? DATE THIS PERIOD;. SELL. I HG PRs. 

688 KEM THEI LAST ENTRY - DATE - IS OH! Y USED TO I ND IF: ATE 

700 REM THE LATEST SALES ACTIUITY FOR THE' PARTITTMLAR TTFT1. 

7£0 REM THE EOLLOHIHG UARIABLES ARE USED TN THIS PROGRAM 

748 REM N=TOTAL # OF INOENTOPV TTEMS 

768 REM H(j )=ITEM # 

788 REM Cm=CLFlSS OP SUB ITEM # 

888 REM U(I)=UENDOR # 

8£0 REM ESm=DESCRIPTION iLESS THETI £0 f:HAPFlETERs PLERSE1 

848 REM OCI)=UHIT COST £ 

868 REM L(I)=LOCATl!JN # DESIGNATES WHERE ITEM IS STfiPEls. 

888 REM LINE NUMBER TWO OF THE DATA STATEMENT NOW HAS 

980 REM Hi:i:i=OUANTITY ON HAND 

9£8 REM S ( I ) =NUMBER OF SALES DURING THE LAST TNOENTORY PEPiriTi 

940 REM A* f I ) =DATE OF THIS PERIOD - BE CONSISTENT EH: lEvIS,-?^ 

960 REM P(I)=SELLIMG PRICE IN $ 

980 REM 

1008 DIM NCiOO) j C (1801 ? 0(1001 jE/IUIOO) jO( IOOj jLllOO) ?H(1001 ?Si 1001 i fi* i' '180 

1020 DIM Pi; 1001 

1840 REM CHANGE THE ABOUE SUBSCRIPTS TO FO! ip,L THE NUMBER OF Ym IP 

1068 REM TOTAL IMUENTORY ITEMS. 

1080 REM sssJSSs:«S:Sis==== ===================== 

1 1 08 N= 1 
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1138 REM CHANGE THE; UAL.UE OF M TO FGUAL YOUR TOTAL NUMBER OF ITEMS, 
1 140 REM '&■'&■&■'&■&■'#'&■'&'■&■&■ i : : • : : :::::: 5 ::::;: : : : : : : 

1160 FOR 1 = 1 TO II 

1 ISO READ Mi I ) j C ( I ) ? U ( I ) ? Es C I ) ? C I ) ? L L I ) 

1 £60 PERU H i: J ) ? S ( I ) ? Fl'5 ( I ) ? P ( I ) 

1££0 NEXT I 

REM THE FOLLOW IMG DATA STATEMENTS MUST BE CHANGED TO 



1£40 
1£60 
1 £8© 
1 300 
1320 
1 340 
1 360 
1 380 

1 400 

1 4£0 
1 440 
1 460 
1 480 

1 500 

15£8 
1 540 
1 560 
1 580 

1 600 

16£0 
1648 
1668 
1688 

1 700 

17£0 
1740 
1 760 
1788 
1 888 
1 8£8 
1848 
1 868 
1888 
1 388 
1 9 £8 
1 948 
1 968 
1 938 
£888 
£8£8 
£848 
£868 
£888 
£188 
£1£8 



ODES 
DEFINED 

EXs CLA8 



REM REFLECT YOU TRUE INUENTORY ITEMS AMD C 
REM ALL OF THE CODES YOU DON'T USE Ml ISO' BE 
REM SO PUT A 8 in EACH ITEM YOU ARE MOT USING - EX; CLASS# 

RFM THE TiflTfi FORMAT FOR THE FIRST DATA LINE OF AN ITEM IS AS FOI..I OMS: 

REM DATA ITEM#? CLASStt? UENDORft? ITEM DESCRIPTION, UNIT COSTS* LOCATION CODE 
F.-EM THE FORMAT FOR THE SECOND DATA LIME OF AN ITEM IS AS FOLLOWS: 
REM DATA #0N HAND?#SOLD THIS PERIOD? DATE OF THIS PERIOD? SELLING PR* 

DATA 1 36928 ? 1 3 ? 1 673 ? ADO . WRENCH ? 7 . 1 3 ? 1 89 

DATA 9 ? 8 ? " 1 P.-" 1 7 .--75 " ? 9 . 98 

DATA ££ 1 679 ? 9 ? 1 673 ? SM . HAND SAW ? 5 „ 1 7 ? 1 73 

DATA 4? 1 ? "£--£3.---76" ? 7. 98 

DATA £3456 1 ? ? 9 6 ? PL AST I C ROD ? £ . 1 8 ? £7 

DATA 1 1 £ ? 53 ? " L-' 1 9 --76 " ? 4 . 75 

DATA 556 1 78 ? £ ? 873 ? AD-J . PULLEY ? ££ . 1 9 ? 1 1 ,-' 

DATA 3 ? O ? " 1 £■-' 1 7/75 " ? £8 . 58 

DATA 783756 ? 73 ? £7 ? ELECT . BOX , 1 9 . 56? 354 

DATA 6? 1 » " £.-"£3.--76 " ? £9 . 66 

DATA 745336 ? 1 3 ? £7 ? FUSE BLOCK ? 1 £ . 65 ? 63 

DATA 7 ? £ ? " 1 £.-- 1 7.-'75 " ? 1 5 . 95 

DATA 8 1 £763 ? £ ? 1 673 ? GLOBE ■> 5 . 88 ? 1 1 £ 

DATA 5 ? £ ? " £.--£3^76 " ? 7 . 49 

DATA 8765 1£?£? 873? WIRE MESH? 3. 18? 45 

DATA 7 ? 3 ? " 1 .-- 1 9.--F6 " ? 4 . £5 

DATA 9 1 533£ ? £ ? 1 673 ? F I LE ? 1 . 3£ ? 97 

DATA 7? 3? "£.--£3.--76" ? 1 . 98 

DATA 9733£8 ? 8 ? £ 7 ? CAN CuUER ? . 73 ? £ 1 

DATA 1 7 ? 5 ? " 1 £ •" 1 7--75 " ? . 99 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 



566 



£1140 REN 

£168 REM 

£180 REM 

££80 REM 

£££8 REM THESE LINES REE RESERUED FOE YOUR INUENTORY ITEMS. 

££40 REM INITIALLY TYPE IN THE TiRTfl IN ITEM # SEQUENCE IE ROSS I OBIT 

££60 REM THIS HILL GRERTLY SPEED UP THE FUTURE UPHHTING THAT MILL. 

££80 REM BE REQUIRED EUERY INUENTORY PER I OH, NHRTEUEE TT IS. 

£300 REM THE IiflTFl HOES NOT NEED TO BE I IRDFlTED TO BE RUN BUT IT 

£3£0 REM IS DESIRABLE TO UPDATE THE INUENTORY ON R PERIODIC BASIS. 

£340 REM IT WOULD BE A GOOD IDEA TO SKIP AT I FAST 3 LINE NUMBERS 

£360 REM BETWEEN EACH DATA ENTRY. YOU HILL. NOTICE THAT THE 

£380 REM LINE NUMBERS ARE NOT INCREMENTED BY 1 BUT INSTEAD BY £0 

£400 REM THIS MEANS THAT THERE ARE £6 POSSIABLE DATA LINES BETWEEN 

£4£0 REM EACH flBOl'E REM STATEMENT. 

£440 REM 

£460 PRINT 

£480 PRINT 

£500 PRINT " THIS IS THE INUENTORY ACCOUNT I NG PRFiGRFlM " 

£5£8 PRINT 

£540 PRINT 

£560 PRINT 

£588 PRINT "TYPE IN THE DATE 5 ASs C- 14.^75 "! 

£680 INPUT D* 

£6£0 PRINT 

£640 FOR 1=1 TO 7 

£668 PRINT 

£688 NEXT I 

£780 PRINT 

£7£8 PRINT 

£740 PRINT 

£,-'60 PRINT "THE FOLLOWING IS A LIST OF THE REPORTS THAT ARE AVAILABLE 

£780 PRINT "TO CHOOSE ONE TYPE IT'S NUMBER TO THE PROGRAM PROMPT." 

£880 PRINT 

£8£8 PRINT " 1 = AOTIUITY REPORT " 

£848 PRINT " £ = MINIMUM QUANTITY SEARCH " 

£868 PRINT " 3 = INUENTORY LIST " 

£838 PRINT " 4 = INUENTORY LIST BY CLASS " 

£908 PRINT " 5 = INUENTORY LIST BY UENDOR " 

£9£0 PRINT " 6 = STOP PROGRAM " 

£948 PRINT 

£968 PRINT "WHICH REPORT WCiULD YOU LIKE TO piiri:"S 

£988 INPUT R 

3808 PRINT 

38£8 IF R=6 THEN 7688 

3048 IF R=l THEN 3188 

3868 IF R=2 THEN 4548 

3888 IF R=3 THEN 5188 

3188 IF R=4 THEN 5868 

31 £8 IF R=5 THEN 6880 

3148 PRINT 
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3168 GOTO 3838 

3180 REM THIS SUE GENERATES THE OCTIUITY EEPnpT tt 1 

330O LET fl=5 

3330 EOR 1=1 TO H 

3340 PRINT 

3360 NEXT I 

SO PRINT "HOUGH YOU LIKE YOUR RCTIUITY PPPORT TO COUEP H01E" 

0O PRINT "OTHER THEN THFfT OE TODAY (YES OR NO) "5 
3330 El =8 
3840 B8=0 
3360 E3=0 
3380 01=0 
3400 fl£=8 
3430 03=0 
3448 INPUT Y5 
3460 PRINT 

3430 IE Y$="NO" THEN 3740 
3500 IE Y*="N" THEN 3740 
3530 PRINT 
3540 E1=0 
3560 E£=0 
■~\r,P.id B3=0 
36O0 PRINT "INPUT THE PER I OH DATE EHR THIS REPORT "5 

3680 01=0 

3640 03=0 

3660 R3=0 

3630 INPUT Q£ 

37O0 PRINT 

3730 GOTO 3780 

3740 QS=B5 

3760 PRINT 

3780 PRINT 

3800 PRINT " C T I U I T Y R E P R T F P " 5 0? 

8838 PRINT 

3848 PRINT " TODAYS DOTE " j T>S 

P.FifjFi PRINT 

3330 primt " ITEM* " » " DESCRIPTION " j " #0N HOND "»" SSOLES " » " ^PROFIT" 

39O0 PRINT 

3930 07=0 

3940 FOR 1=1 TO M 

3960 A8=S C I ) * C P ( I ) -0 ( 1 1 ) 

:-:980 IF 0$ C I ) =0$ THEN 4040 

4000 NEXT I 

4O30 GOTO 4180 

4040 PR I NT N ( 1 1 j E:$ ( I ) ? H C I ) j S C I ) W ( I J » AS 

4060 08=03+08 

4088 fl£=0£+S f 1 1 *P ( I ) 

410O 01=01+1 

41£0 B1=B1+SCI) 

4140 07=1 

4168 GOTO 40L10 
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4130 IF 07=1 THEJi 4c' 40 

-1c 1 00 PRINT 

4333 PRINT "THERE HAS HO RCTIUITY LiHF'INR THRT PFRinn » 

4 £4Q PRINT 

4£6W PRINT "TOTRL PIECES SOLD = "!T:1 

4888 PRINT "TOTAL. ITENS = "5fl1 

430W PRINT "TOTRL DOLLflR SALES = £"!RP 

4330 PRINT "TOTRL HOLLAR PROFIT = £";Ptt 

4340 PRINT 

4360 PRINT 

4380 PRINT 

4400 PRINT 

■4430 PRINT "WOULU YOU LIKE: TO CHF'FK THE Rf'TTUiTV FHP fWiTHFp FTPTrm <- 

■4440 INPUT Y$ 

4460 priht 

4488 IF Y£="YES" THEN 3 c: i£0 

450O IE Y$="Y" THEN 3580 

4530 GOTO 8630 

4540 REN THIS SUB GENERATES fi SEARCH FOR MINIMUM PMRHTITIFP 

4560 REM THIS IS REPORT #3 

4580 LET Fl=5 

46O0 FOR 1 = 1 TO Fl 

4630 PRINT 

4640 NEXT I 

4660 PRINT " M 1 N I N IJ M Q IJ R N T I T Y :-: F p P r. H " 5 Ti* 

4630 PRINT 

4700 PRINT 

4730 PRINT "TYPE IN THE MINIMUM QUANTITY LFOEL THAT YOU ARF INTF RFs'TFTi" 

4740 PRINT "IN. FOR EXAMPLE TO CHECK FOR R STOCK ITEMS TYPF R - j" 

4760 PRINT "TO CHECK FOR ITEMS WITH QUANTITIES LESS THEN 5 TYPE p - ^. n 

4730 PRINT "TYPE R IF' YOU WANT ANOTHER RFPORT INSTFPH. INPUT PliRNTITY; 

4800 INPUT A5 

4830 IF A5=y THEN 8630 

4840 IF A5<0 THEN 3630 

4860 PRINT 

4880 PRINT 

4900 PRINT " MINIMUM QUANTITY ON HAND SEARCH PEPfiPT " ; H£ 

4930 PRINT 

494U PRINT 

4960 PRINT " ITEM# "<" DESCRIPTION "?" #0N HAND "«" #snLH "<" \ nr.f\T#» 

4980 PRINT 

5000 FOR 1=1 TO N 

5030 IF H(IXfl5 THEN 5100 

5040 IF H(IJ=R5 THEN 5100 

5O60 NEXT I 

5080 GOTO 5140 

5100 PRINT NCI) jE$m jHCI) »S(I) »L(I) 

5i£0 GOTO 5Q68 

5140 PRINT 

5160 GOTO £630 

5180 REM THIS IS THE INVENTORY LIST Sim #:-: 
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5£80 LET fl=5 

5££0 FOR 1 = 1 TO Fl 

5£40 PRINT 

Spf.fi NEXT I 

5£80 PRINT " L 1ST F 1 fl U F N T P V "iW- 

c: i30O PRINT 

5320 PRINT 

■=;--:4i7i PRINT TAB 0-0? 

5360 PRINT " ITEM # " ? " CLASS # "?" UENBOR #"?" COST $%" DESCRIPTION" 

538S PRINT _,. ,._,.,_.„ 

54O0 PRINT " LOCRTtt "," QUAN# " ? " tiSOLB "?" SEL PR£ " ? ' LtT TwTE 

C I4£0 PRINT 

5440 PRINT 

5460 A 1=0 

5480 A£=0 

5500 A3=0 

55£0 R4=0 

Fi!=;40 FOR 1 = 1 TO N 

PiPiftPI PR I NT N tl)i C 1 1 3 t U ( I ) » tlJ? ES ( I J 

5580 PR I NT L ( I 3 » H C 1 3 ? S ( I ) » P « I 3 ? At- ( 1 3 

5600 R 1 =fl 1 +0 C 1 3 *=H C 1 3 

56£0 R£=R£+P f 1 3 * : S C 1 3 

c i640 R3=R3+H ( 1 3 

5660 PRINT 

C I680 NEXT I 

5700 PRINT 

57£0 PRINT 

^740 PRINT "PRESENT INUENTORY COST = £";RJ 

c ;7AR PRINT "TOTAL NUMBER OF PIECES = " S A3 

^7® PR TNT "TOTAL LSI SALES PERIODS = £"?A£ 

5800 PRINT "TOTAL NUMBER OF INUENTORY ITEM ON RECORD = "<N 

58£0 PRINT 

Pi84@ GOTO £6£0 

5360 REN THIS SUB GENERATES AN INUENTORY LISTING BY CLASS #4 

5880 A=5 

Pl^Pie FOR 1 = 1 TO A 

59£0 PRINT 

=i940 NEXT I 

-,9APi PRINT "THIS REPORT GENERATES A LIST BY CLASS CODt. FROM THE ITEMS" 

Pl9 c;p, ppiflT "PRESENTLY ON YOUR INUENTORY RECORD. " 

600© PRINT "TYPE IN THE CLASS CODE YOU WANT SEARCHED:"? 

60£O INPUT R5 

6O40 B1=0 

6060 B£=0 

6080 E3=© 

6100 PRINT 

61£@ PRINT 

6148 PRINT 

f. 160 PRINT " C L fl S S CO D E L 1ST ■' ? fl*= 

6180 PRINT 

6£00 PRINT 
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6 ££8 
i- £46 
6 £60 
6 £88 

6300 

6 3 £0 
6340 
6360 
6383 
6400 
64£0 
6440 
6 4 6t' 
6488 

6500 

6 5 £8 
6540 
6560 
6588 
6608 
66£0 
6648 

6 6 60 
6680 
6700 

O l 5-~, "J 

6740 
6768 
6788 
6888 
68£0 
6840 
6860 
6888 
6980 
69£0 
6940 
6960 
6980 
7008 

7 8 £8 
7848 
7868 
7880 
7108 
71 £8 
7148 
7 1 68 
7188 
7£88 
7 ££8 



PRINT " CLRSS# "j" ITFMtt " ? " BPDPRTP. "<" mm HflNTi"," i ipf iufipft" 

PRINT 

87=8 

FOR 1=1 TO H 

IF ClI)=Fl5 THEM 6363 

NEXT I 

GOTO 6488 

PRINT Cm? H ( 1 3 ? E$- 1 1 3 ? H C 1 3 ? U ( 1 1 

Bl=Bi+Hi;i3:*nrri 

B£=B£+1 

B3=B3+H ( T 3 

H7=l 

GOTO 6388 

IF fl?=l THEM 6548 

PRINT "CRH'T FIMD THRT CLRSS CODE It! THF" IHiFNTfiRY L TPT PRPHE PF rmiF# 

PRINT 

PRINT 

PRINT "TOTFlL. CLRSS COST = ?";B1 

PRINT "TOTfil NUMBER OF ITEMS ="JB£ 

PRINT "TOT HI Mi IMBER OF PIECES ="JB3 

PRINT 

PRINT "MOULD 'f'OU LIFE TO CHECK RHOTHE'R PI flS:=: rnjif \ S'FP OP |in ] »i 

INPUT Y£ 

PRINT 

PRINT 

IF Y£="YE8" THEN 6888 

IF Y5="Y" THEN 6888 

PRINT 

GOTO £6£8 

REM THIS SUB GENERRTESTHE UENBOR PPTiE L J ST # ■=! 

LET R=5 

FOR 1=1 TO H 

PRINT 

NEXT I 

PRINT "TYPE IN THF UENDOR CUBE YOU MOULD LIFE TO 3ERECN "5 

INPUT R5 

PRINT 

PRINT' 

PRINT " 1.3 F N D p f: n Tl h I I s T "'rnz 

PRINT 

PRINT 

PRINT " UEMI30R# "?" ITEM* " ? " CLRSS "*" #nn HRNH"< " T3FSP. " 

PRINT 

fll=0 

FI7-8 

FOR 1 = 1 TO hi 

IF UCI3=R5 THEN 7£08 

NEXT I 

GOTO 7£88 

PRINT U ( I ) , N 1. 1 3 5 L i 1 3 , H (. 1 3 , E* (1 1 

07= 1 
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7246 
7 £60 
7 £30 
7300 
7333 
7340 
7360 
7333 
7400 
7430 
7440 
7460 
7430 
7530 
7530 
7540 
7560 
7530 
7680 



R 1=1=1 1 + 

GOTO 7 

IF fl7= 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

PRINT 

PRINT 

IF •■('■$= 

IF Y£= 

GOT0 £ 

END 



1 

1 60 

1 THEN 7340 

"COULDN'T FT Nil THAT UENHOR IN 

"TOTAL NUMBER OF ITEMS = "jRl 



-IE INUENTORY LIST - TRY AGAIN 



"WOULD YOU LIKE TO CHECH' ANOTHER UENDOR "J 



"YES" THEN 6900 
"Y" THEN 69O0 
630 
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Inventory Modifications 

This program has been written using no FILES statements or PRINT USING state- 
ments. This was done to assure maximum compatibility with the various Basic 
compilers currently on the market. The operation of this program can be re- 
fined by substituting PRINT USING statements in place of some of the PRINT 
statements controlling report print outs. If your Basic compiler or inter- 
preter doesn't incorporate the Print Using statements this program without 
any modifications will function quite normally without error as currently 
written, however some of the dollar amounts may be printed right hand justi- 
fied with the trailing decimal zeros suppressed; See the sample listing of 
the Activity Report, Report #1. 

The PRINT USING statements could be substituted in reports #1, 3 and 4, for 
increased readability. For Report #1 amend lines 4040, 4300 and 4320 by in- 
serting PRINT USING statements for the PRINT statements. For Report #3 lines 
5560, 5580, 5740 and 5780 should have their PRINT statements converted to 
PRINT USING statements. In Report #4, the Class Code listing, line 6560 
should be changed to a PRINT USING statement. The PRINT USING statements 
will each require different field designators in the control statement lines 
to assure printing conformity. 

The DATA statements may be removed from this program if the data is to be 
read in from a Use File. If this is done the READ statements will have to 
be changed to READ # statements and a FILES statement will have to be in- 
serted around program line 1000. The inclusion of an external Use File can 
greatly reduce the amount of on line memory required for program execution, 
if the program is written with this in mind. External Use Files were omit- 
ted in this version of the program due to compatibility variations between 
systems. If such a modification is deemed advantageous the READ # and PRINT 
and PRINT USING statements should be merged and the tables removed to con- 
serve memory requirements. 
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TM T C; 



"HE 1NUENT0RY ACCOUNTING PROGRAM 



TYPE IN THE DATE? AS: 



14. 



I-- ,- b 



THE FOLLOWING IS A LIST OF THE REPORTS THAT ARE AVAILABLE 
TO CHOOSE ONE TYPE IT'S NUMBER TO THE PROGRAM PROMPT. 



ACT IN I TY REPORT 
M I M I MUM QUA NT I T Y SEARCH 
INVENTORY LIST 
INUENTORY LIST BY CLASS 
INOENTORY LIST BY UENBOR 
STOP PROGRAM 



WHICH REPORT WOULD YOU LIKE TO RUfU ?1 
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WOULD VlilJ LIKE V i! Ip f|P"! ] PITY REPORT TO OOUF'p H TiflTT 
OTHER TUF.'fl THAT UF TPDOY i VE"S OP HCO ?YFS 



INPUT THF F'FhlOT! DOTE. FOP THIS PEFTiRT ?1 2-'i7'75 



I 1,1 1 T 



p n 



t: sppiptton 

rmj. fjpfnch 

rtpl PULl FY 

FUSE Hi OPF 

PFlM COUER 



TOTOF P TEXTS SOLU 

TOTAL ITFMP 

TOTAL DOLLOP POLES 

TOTFlL. IiOLLflP PROF" IT 



fcON HRMIi 






tSA'I. FT 



,. P^fif- 1 T 



HOI ILIl YOU I IKE TO CHECK THE AOTIUITY FOP RHOTHER PERIOD 7YF. 



INPUT THE PERI OH DOTE FOR THIS REPORT ?ip,- 



C T I U I T T 



P F: P O P T F p j ?,PE'4-"7S 

TODAYS DOTE 3Sc'As?€ 
DESCRIPTION #ON HflMD TSALF S 



j-ppnpjT 



THERE URS HO FlCTTUITY DURING THOT PERIOD 



TOTFlL PIECES SOLD 
TOTAL ITEMS 
TOTAL DOLLAR SALES 
TOTAL DOLLAR PROFIT 







I"! 



NOULD YOU LIKE TO CHECK THE HCTIUITY FOR ANOTHER PERIOD ?Hu 
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THF FflLI riHiriG IS H LIST OF THE REPORTS THAT ARE' RUAILABLE 
TO CHOOSE ONE TYPE IT'S NUMBER TO THE PROGRAM PROMPT. 

1 = ACTIUITY REPORT 

£ = MINIMUM QUANTITY SEARCH 

3 = INUENTORY LIST 

4 = INVENTORY LIST BY CLASS 

5 = IMUENTORY LIST BY UENDOR 

6 = STOP PROGRAM 

WHICH REPORT WOULD YOU LIKE TO RUN:?£ 



II I N I N U N Q U A N T I T Y S E H R C H 3,-"£4..-76 

TYPE IN THE MINIMUM QUANTITY LEUEL THAT YOU ARE INTERESTED 

IN. FOR EXAMPLE TO CHECK FOR 6 STOCK ITEMS TYPE" A - 1 

TO CHECK FOR ITEMS WITH QUANTITIES LESS THEN 5 TYPE A - 5 

TYPE A 9 IF YOU WANT ANOTHER REPORT INSTEAD. INPUT QUANTITY: ?l@ 

MINIMUM QUANTITY ON HAND SEARCH REPORT 3---£4.--76 

ITEM# DESCRIPTION #ON HAND #SOLD L.OCFlT* 





DESCRIPTION 


#ON HAND 


1 369£8 


ADJ. WRENCH 




££1679 


SM. HAND SAW 




556 178 


AD-J. PULLEY 




7i!37i6 


ELECT . BOX 




745336 


fuse: block 




C; j p~?f t --< t 


GLOBE 




o •: tf-.i 1 c 


WIRF MESH 




91533.2 


FILE 





i 39 

I' 7 ": 

1 17 
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WHICH REPORT HOULTi YOU ! IKE TO RUH: ?3 



I M U E !l T 



.■"• .;. '!■■■' ■"' •"> 



ITFM # 
L.OCfiTtt 



CLASS 
QUAM# 



urrnioR # 

#SOi vi 



I :ij'";T 



rjF.sr..F''iPTion 

LSI TiflTE 



•j 39 
33 1 679 

j. i -„..' 

3 34561 



:.":ib 
354 



81 £763 
113 



m.i. f- ir-iTi n i! i 



1. HAND Sf-iL! 



I ! ■■■ s 



L v I •„ : 


PLHSTIC 


p!""l [I 


: 't u 1 -'j 


1 '19.-V6 




-'c', j ';? 


1-i.D- 1. PUL. 


LEY 


33 „ 5 


i.S/3 75' c 




1 Cl » Ji' : 


ELECT, !:iU 


; :: ; 


'"3. 5^ 


;"■' y ""■•"*'"'!,. """7 :, f*"t 




1 c ,= •::'.'''"' 


pijqjr pj r j 


c;l; 


3.5. 35 


I ' 1 r '".••' i''^! 





GLOBE 



LRE. NFSH 






FILE 







7S CAM COULP 
33 l, ; yl 7V75 



t.r4 = t 



PRESENT IMUENTOPY DIRT = £ 
TOTAL NUMBER OF PIECES = 177 

TOTAL LST SALES PERIODS = £ 3=19.91 

TOTAL NUMBER OF IMUENTORY ITEM ON RECORD 



10 
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THE Ffil LHHTMii IS H LIST OF THE RFPORTS THAT ARE AVAILABLE 
m CHOUSE ONE TYPE IT'S NUMBER TO THE PROGRAM PROMPT. 

1 = ACT I UI TV REPORT 

? = MINIMUM QUANTITY SEARCH 

3 = IHUEHTORY LIST 

4 = INUEMTORY LIST BY CLASS 

5 = IMOEHTORY LIST BY UENHOR 

6 = STOP PROGRAM 

WHICH REPORT WOULD YOU LIKE TO RUN 5 74 



THIS REPORT GENERATES A LIST BY CLASS CODE FROM THE ITEMS 

PRESENTLY OH YOUR IMUENTORY RECORD. 

TYPE IN THE CLASS CODE YOU WANT SEARCHED : ?£: 



C L H b b 



C D E 



:-:,--;-'4..--?r- 



CLASS# 



I TEM# 



DESCRTp. 



:jN HAND 



UENDOR# 



81P763 
87&51P 



ADJ. PULLfr 
GLOBE 



?E MESH 



FILE 



TOTAL CLASS COST' - $ IP? .47 
TOTAL NUMBER OF ITEMS = 4 
TOTAL NUMBER OF PIECES = PP 

WOULD YOU LIKE TO CHECK ANOTHER CLASS CODE (YES OR NO) ?NO 
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the: niLLowiNG is a ; ist or the reports teiat fipf; aoailabl.e. 
to choose nt-ie type it's number to the program prompt. 

1 = sctiuity e'epopt 

£ = fit mi nun ohomtity search 

3 = ih'oitory list 

4 = imuehtory list by class 

5 = THUEMTOR't' LIST 'BY '.OTDOP 
S = STOP PROGRAM 

WEI I OH REPORT MOULD YOU LIKE: TO PUM: ?5 



TYPE IN THE UEHHOP CODE YOU WOULD LIFE TO SEARCH 



i.J K r-i ft n 



c n f 



i !LnnoR# 



1 TEH# 



CLAE 



40N Ht-lMD 



c: i33ir 



desc . 
n. ect . so;-: 

Fl l'"-';L hL rii".;!-.- 

CAN cru 'FP 



TOTfll. NUMBER OF ITEMS = 



WOULD YOU L.IKE TO CHECK ANOTHER UENDOE V'YES 



'RE IN THE UFNUOR CODE YOU WOULD LIKE TO SEARCH '7 



E il D R 



i" Ti E 



4.--7A 



CENDOR# 



ITEM# 



CLASS 



fiOfl HAND 



COULDN'T FIND THAT UENBOE IN THE INUENTORY LIST - TRY AGAIN 
TOTAL NUMBER OF ITEMS = O 
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PAYROLL; 

This program calculates and compiles a payroll register for all of your em- 
ployees. All employee data is contained within the program so that external 
data files need not be used. The program computes the deductions for FICA 
and Federal & State income tax withholdings, permits deductions for employee 
insurance, calculates the employers state and federal unemployment insurance 
tax and has space provided for an additional deduction calculation (Union 
dues, emp. savings, loan repymts, etc.) should such space be needed or re- 
quired. Four different print outs are generated by this program: (1) print- 
ing of paychecks, (2) Payroll Register; in a tabulated format, (3) employee 
data record and (4) a summerized tax record for the employer. 



USERS 

This program is especially designed for small companies having a standardized 
work week and whose employees are paid by the hour rather then salaried. 



INSTRUCTIONS 

Before the program is run all employee data must initially be entered into 
the program. The program is well documented and should be listed for full de- 
tails. The subroutines for the Federal taxes; line 1475, the Federal deduc- 
tion schedule; line 1550, tax rate due; line 1585 and the State withholding; 
line 1680, should all be completed for your particular requirements before 
the program is initially run. 



L I MITATIONS., 

This program is set for a maximum of 50 employees. This can be adjusted to 
accommodate other numbers of employees by changing the DIM statements in 
lines 155 and 160. The source code requires 9K Bytes of memory for storage 
and 15K Bytes of memory for execution, with 50 employees. A sample run of 
this program follows the source listing. The data generating the examples 
is contained within the program and should be removed before entering your 
data. 



^MMfe 



m 



2 r 5 
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lu hVN iHi.s is ^"flVROLL WITH DEDUCTIONS 
15 REM EOF' FULL. NOMF 'K. 'FIT IONS LIST THE PROGRAM 
SO REM THIPROGRFlM IS WRITTEN IN BRSIC 

£5 REM IT HOES NOT USE EXTERNAL. USE FT I ES 

30 REN ALL, UPDATING IS TO BE 'DOME: BEFORE EXECUTION 

3 ,:: 3 RFM CEEfiTETi BY SCIENTIFIC RESEARCH INST. 

40 REN ALL EMPLOYEE DATA IS CONTAINED IN THE DATA STATEMENTS 

45 PEN EACH TIME: THE: DATA IS UPDATED TO INCORPORATE CHANGES 

56 REM IN EMPLOYEE.' STATUS A MEN COPY OF THE" PROGRAM SHOULD 

55 REM BE NADEX EITHER ON TAPE OR PAPER THEH 

60 REM EACH TINE THE: PROGRAM IS RUM THE MEN mjPY 

05 REN MILL BE OSED TO INPUT THE PPOGPAM TO 

70 REM THE COMPUTERS THE PROGRAM IS SELF PROMPTING 

75 REM AND MILL ASL All.. NECESSARY GUEST IONS. 

SO REN THE SUBSCRIPT ISO) USED IN THE Ti IMF MS I ON 

05 REN STATEMENTS IS THE NAXIMUN NUMBER OF 

98 REM EMPI UYEES. THUS NUMBER SHOULD BE EGUOL 

S5 REN TO THE NUMBER OF EMPLOYEES AND Hfi NiTPF 

ISO REN FTip EFFICIENT UTILIZATION OF MEMORY. 

105 REM THE FOLLOWING UARIABLES ARE USED IN THIS PPOGPAM 

118 REM N=TOTAL # OF EMPLOYEES 

115 REM E ( I ) =EMPI OYEE NUMBER 

lEO REM Ess IJ^EHPLOYEF NAME 

1£'5 REM Rm=HOURLY RATE OF PAY 

ISO REN Di.I)=# OF DEPENDENTS (FOR TAX PURPHSES) 

J 35 REM Fm=FIXED SXXX.XX DEDUCTION i'INS.? DUES? ETC. 3 

140 REM C CI 3 =41 1 SO. DEDUCTION i IF NONE HALF en 

14 e i REM AND C ( 1 3 =XY,X. XX III fiOLI ARS 

150 RF.:M HCI3=# OF HOURS WORKED 

1 55 D I M ES ( 50 J ? E f 50 3 ? R i" 50 3 ? D C 50 3 5 F ( 50 j , f. f 50 3 

ISO DIM Hi 503 

j 65 REM CHANGE THE ABOUE: SUBSCRIPTS POP YOUR 4 OF EMPLOYEES 

1 78 E'EN *:«*:*:*:*:*:*• 

175 LET N=S 

105 REM THE ABOUE N MUST BE SET = TO YfiUR # OF FMPI nYFTS. 

ISO FOR 1=1 TO M 

1 95 READ E ( 1 3 ? E£ i 1 3 ? R ( 1 3 ? 10 1 3 ? F 1. 1 3 , f r 1 1 

POO NEXT I 

£05 RFM THE FOLLOWING DATA STATEMENTS MUST BE CHANGED Tfi 

SIS REM REFLECT YOUR EMPLOYEE RECORDS. 

015 REM THE FORMAT FOR THE DATA STATEMENTS ARE AS Ff HI iW; 

££0 REM DATA EMP.#? NAME? PATE? DEPENDENTS ? DEDUCTION, MISC. DED. 

££5 REM S:SS:'*iffi**:S; 

£38 DATA 3721?. JOHN M. DOYLE? 6.53?£<7.5?0 
£35 DATA 6£19?G. R. CRANER? 3. 1788? 3? 5. 9£? 

£40 DATA 187£?PNI! JOHNSON? 4. 3R< 1 ? 6. i c: ^ n 

£45 REM 
£50 REM 
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d < a 
d \'"t 
£80 

CO 'j 

£98 
£95 

300 

305 
310 
3 i 5 
3£0 
3£5 
330 
335 
340 
•j4j 
350 
355 
360 

-, ?-, .„i 

370 

"~i ■-:> cr 

-.:■ i' -j 

38@ 

O O o 

390 
395 

400 

405 
410 
415 
4£0 
4£5 
430 
435 
440 
445 
450 
455 
460 
465 
470 
475 
480 
435 
490 
495 

500 

505 



REM 
REN 
REM 
REM 
REM 
REM 
REM 
REN 
REM 
REM 
REM 
REM 
REM 
REM 
REM THESE: LINES ARE RESERUED FOP FUTURE: EMPLOYEE EXPANSIONS 

PRINT 
PRINT 

PRINT "TYPE IN THE NUMBER OF HOURS IN THIS PRY PERIODS " ? 
INPUT H 
FOR I£=l TO N 
LET H(I£)=H 
NEXT i£ 
PRINT 

PRINT "ENTER THE UflTE (EX: 1 1 •■-£3.--75 ):"j 
INPUT US- 
PRINT 

PRINT "Din FILL EMPLOYEES WORK THE FULL # OF HOURS EVES OP NO 1 : " 5 
INPUT fl> 



:e h^"'-( 



._. ii urc'ii 



THE? 



5Pi0 



IF fi$="Y" THEN 50O 

PRINT 

PRINT "ENTER THE NUMBER OF EMPLOYEES THAT DIDN'T HOPE THE FULL" 

PRINT "NUMBER OF HOURS FOR THIS PRY PERIODS"? 

INPUT II 

PRINT 

PRINT "TYPE IN THE EMPLOYEE #? THEN # Of HOURS WORKED? RS ASKED" 

FOR I£=l TO H 

PRINT "INPUT-EMP+b # HOURS UK:"! 

INPUT G» J 

FOR 1=1 TO N 

IF G=ECI) THEN 47© 

NEXT I 

GOTO 48b 

LET H(I)=J 

NEXT I£ 

GOTO 500 

PRINT 

PRINT "I HURL ID EMPLOYEE NUMBER - TRY AGAIN. " 

GOTO 440 

PRINT 

PRINT 



582 



":> i w 

5 1 5 
SCO 

c:* •-"! E-- 

530 
'535 
'5 40 
54? 
550 
555 
568 



IT.- i 



ii^r 



byy 
595 

600 

605 
610 
615 
6 £8 
635 
638 
635 
648 

650 

.-" tZVE? 

■ ~' '• I 

F.fifi 



6h0 

690 
695 

700 

785 
7 1 @ 
715 
730 

-t' -~i cr 
i C-_< 

738 

73*71 
748 
745 
758 
755 
760 



PRINT 

-'PINT 

PRINT "THE FOI LOWING IS A LIST OF REPORTS AOAILABLE ." 

PRINT "TO CI IOOSE ONE TYPE IN THE # NEXT Tn THE: DESIRED REPORT" 

PRINT 

PRINT " 1 = PET NT PAYCHECKS" 

PRINT " £ = TRBU! RTE PRYROLL RECORD" 

PRINT " 3 = L 1ST EMPLOYEE EEO"iRDS" 

PRINT " 4 = SUMMER 12E EMPLOYER TRY RECORD" 

PRINT " 5 = NfiriE" 

PRINT 

PRINT "WHICH CINE! DO YOU WISH TO DO:"? 

INPUT P 

PR I NT 

rp p = 5 then 1838 

IP p=i THEN 610 

IE R=£ THEN 975 

IF P=3 THEN 11 15 

IF R=4 THEN 1378 

GOTO 530 

REM THIS SUB. DOE:S THE PAYCHECKS 

PRINT 

PRINT "WHEN THE CHECKS ARE IN PLACE TYPE A 7"? 

INPUT Fl 

LET Tl=5 

LET T£=10 

LET T3=15 

LET T4=£5 

LET T5=5 

LET T6=10 

LET T7=15 

LET T8=£5 

LET SI =58 

LET S3=60 

REM THESE ARE USED TO SET THE PRINT TADS 

REN THE PRINT' FORMAT IS AS FOLLOWS: 

REM THIS IS THE CHECK PART 

REM liRTF 

REM NAME MF. 

E'EN 

REM 

REM 

REM GROSS PAY FICfl FED. Tf\> 

REM DATE INS-HED MI 80. 

REM 

LET R=5 

FOR 1=1 TO A 

PRINT 

NEXT I 

REM THIS SETS THE NUMBER OF LINES IN I TALLY SPACED FOR FIRST EHET 



NAME 

THIS IS 
EMP.# 
GROSS PAY 
DATE 



FOR THE STUB PART 
EMP. NAME 
FICfl F 

INS-TiED 



HOURS WORKED 

STATE TRY 
NET PRY 
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55 P5=0 
: 'f'j PP=0 



_i r r 



=11 



50 py=u 
55 FOR 1=1 
50 PR I! -IT TR 



b(sj ) ;n$ 



SPACING BETWEEN THE HATE AND NAME LINE OH CHECK! 



795 PRINT 

80O PRINT 

805 REN THIS IS FOR Th 

8 1 PPI NT TAB ( S£ ) 5 £:$ (1)5 

815 GOSUB 1475 

880 GOSUB 1618 

885 P4-R ( I ) ®H C I 1 -P 1 -P£~P3-F ( I j -C C 1 1 

y 30 p4= I f-ji' ( 1 00^P4 1 .-" 1 88 

835 PRINT TAB f S3) 5 P4 

840 LET H=6 

845 FOR 15=1 TO fl 

858 PRINT 

RPiFi NFXT 15 

P60 REN THE ABOUE IS FOR SPACING BETWEEN CHECK AND FIRST LINE ON STUB 

865 PR I NT TAB f S£ ) 5 E ( I ) ? E£ C 1 3 j TAB ( S3 ) 5 H C I ) 

870 PRINT 

875 PRINT 

3Q0 U1=R(I)* ; HCI) 

:=: 8 Pi i. J 1 = I til ( 1 88 S U 1 ) •-' 1 08 

898 PRINT TflB(Tl) SUi jTABCT£3 j PI > TAB CT33 5 PR? TAB i'T43 »P3 

395 PRINT 

988 PRINT 

985 PR I NT TAB ( To 3 5 P$ ? TAB ( T63 j F f I ) ? TAB f T7 ) ? C C I ) j TAB ( T8 3 5 P4 

918 LET A=8 

915 FOR 15=1 T8 A 

988 PRINT 

985 NEXT 15 

938 REN A IS USED HERE TO SPACE TO THE NEXT CHECK PATE LINE. 

935 P5=P5+P4 

940 P6=P6+P£ 



950 pc := pg+pl 

955 NEXT I 

9h£i Rh=P8 w £ 

965 REN P8 IS THE ANOUNT OF FICA THE EMPLOYER PAYS 

97Fi GOTO 500 

975 REM THIS SUB DOES THE PAYROLL RECORD 

980 LET A=8 

985 FOR 15=1 TO A 

998 PRINT 

995 NEXT 15 

1008 PRINT " P A Y R L I R E C R D 

1005 PRINT 
1910 PRINT 
1015 PRINT TABCS3 5 
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1300 
1 335 
1038 
1035 

1046 

1345 

1 05@ 

1 355 
1 06@ 
1 065 

1070 

J 075 

1 030 

1 085 

1 090 

i yy c ; 

1100 

111.8 

1115 

1100 
i i oi=: 

1. J. L- w 

1 3 38 \ 

•i i ■"'>=: t 

1140 I. 

I 1 45 
1150 

I I 55 
1160 
1 1 65 
1 1 70 
1 1 75 
1180 
1135 
1 1 90 
1195 

1 308 

1 £85 
1310 
1315 
1 830 
1 835 
1 338 
1 335 
1348 
1 fc'45 
1358 
1355 
1 368 
1 365 
1378 



1! n -ty 

a i \ 



l i ! 



PRINT " NONE "?"F'MP# "s" NET PR' 

PRINT 

FOR 1 = 1 TO H 

G08UB 1475 

GOSUB 1610 

PRINT Esil) jE'(I) j 

P4=H ( I ) ffi R C I ) -PI -P3-P3-F r I ) -C C I '1 

01=P1+P£+P3 

Q£=F ( I ) +8 f I ) 

P4=0NTi:i00Sp4)/108 

PRINT P4?Q1 ?QP 

C!3=Q3+P4 

Q4=Q4+-Qj 

Q5=Q5+Q£ 

NEXT J 

PRINT 

PRINT " TOT0L8 " j " ",>' -:,i : M,i 

PRINT 

GOTO 588 

PEN TNI 8 SUB GENEPRTES THE EMPLOYEE RE FORI 

P5=8 

P6=0 

P7=0 

ET fl=16 
FOR 15=1 TO R 
PRINT 
NEXT I 5 

PRINT " F M P L O V F E pRY 

PRINT 
F'R I NT 

PRINT TRBiRi ; 

PRINT " NFlME "?" ROTE " ? ,! DEPEND "j" BED. 
PRINT 

PRINT TflBiPJ j 

PRINT " GR PHY "j" FICfl " j " FEU TRX'S" C T TRY 
PRINT 
PRINT 

FOR 1=1 TO N 
Ul=Rm*Hl I) 
Ul = INT (108*0 1)-- 100 
GOSUB 1475 
GOSUB 1618 

PRINT E$ ( I ) ? R ( I ) j D ( 1 1 ? F f I } ? C f 1 1 
PRINT Ui»PljP£»P3»H(I) 
PRINT 
NEXT I 
PRINT 
PRINT 
GOTO 580 
REN THIS SUB GENERATES THE EMPLOYER TAX RECORD 



TOT 



iFTi 



POPED It! THIS PPnOPFlM 



L 



" MP Mk" 
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1 C f . ' 
1 £80 

1 £85 
1 £8© 

1 £95 

1 J 80 

1 305 
131.0 
1315 
1 3£0 

1 3£5 
1 33W 



LET H=10 

FOP I5=i TO A 

PR I NT 

next 15 

PRINT " r I! P t. n 'i' F P T R X R F. C P B 

PRINT 

PRINT 

P5=0 

P6=8 

P7=0 

P8=9 

Ui=8 

pp TNT "THT Fin"! "■>" TOT FEB " ? " TOT 5T "<" TOT INS "«" TOT ML 



:.M 



TAX 



TAX 



PRINT TAB (6) 5 
1345 PRINT " " ? " 
1350 PRINT 
1355 PRINT TAB i' 6 J ; 

1360 PRINT " OR PHY " ? " ST UNEM " j " FFD UHF" ? 
1365 PRINT 
1370 PRINT 
1375 FOR 1=1 TO N 
1380 GOSUB 1475 
1385 GOSUB 1610 
1390 P8=P8+P1 
1 395 P6=P6+P£ 
140O P7=:R7+P3 
1 485 P5=P5+F ( I ) 
1 4 1 P9-R9+C i. I ) 
1415 Ui=Ul+Rri)*TliI) 
1480 NEXT I 
1485 P8=P33«£ 
1430 GOSUB 1695 



BED 



MISC. 



1 435 
1 448 
1445 

1 455 
1 468 
1 465 
1 470 
1475 
1 488 
1485 
1 498 
1495 
1588 
1 585 
1518 
1515 
15S0 
1585 



LET U1 = INT( 100*411) -108 

LET U£= I NT' i 1 O0*U2 ] / 1 00 

LET U3= I NT i 1 00*TJ3 ) •••" 1 00 

PR I NT P8 ? F'6 ? F'7 ? P5 ? P9 

LET 1 = I NT ( 1 08^0 1 ) ■•- 1 88 

PRINT U1»U1jU£jU3 

PRINT 

GOTO 500 

REM THIS SUB CALCULATES THE" FEBEPAL TAX P£ ANB F'ICA PI 

REM THE INPUTS TO THIS SUB ARE R(I) jD(I) jHCI) ?H 

Z9 =14100 

"•o™ r--i , - r '" ,,:r 

REM °THIS IS THE MAX FOR FICA NITHOLBING 
P1=R(I)*H(I)*Z8 
Pl = INTi:i80*-Pi:i,-108 
Z7=R ( I ) S H ( I ) 

REM s^^* s ** : 

IF Z7<Z9 THEM 153© 

PJ.=0 
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i - -;•,■- P'f ;•: jl-it.. r f =r-ir 'i f- rr ■:•"= the: pica calf. 

■j i: , : -F, FF M Ni iH F ! iR IMF FEDERAL TA7. FfiLC. 

1 547 Z0-=3r-.*H -"40 

iFFF PFM ZF is "IMF liFfi. AFLOMAHCE 

;| S=,5 7':.=,: : i:.*HI n 

FF-7 : ; r, Fr .| 

JF7F PEN 

1 "s 7* = „ 14 64 

i ■':.;!■'; PF hi sr*--**-^*^* 

1FFF F'FF 74 IS T'1-!F ] RV P ATE DUE 

1 5yy FT -77*774 

1795 IF PR':y TMFM 1600 

PF30 FF-IMTi lyF^PRi J 00 






rs'-'i 



PFTUPN 



iolF REM THIS FUFi OF Hi! PATES THE STATE HITHFLIiING TflF P3 

1 6 1 F pf_M THE T HPU'1 T T H I S SUB I S R ( 1 3 ? H f 1 .1 ? D f I J 

16 70 79= „ F:FF'5 

I >..::ki 77=6. FF 

16 37 REM 76 6 77 RRF T'-IF EFlCTORS FOR THE STATE TA7 

1040 7j ~P ! ! '! s:i-i i I ! 



Zc-ZZ-' I<! 1 I 



! t' _>u 

1655 Z3=ZS*TF 40 

lb65 P?=79*Z4-Z7 

1670 IF FF7F THEM 1705 

160O REM THIS FORMULA IS USED TO CALCULATE TFE STATE WTTHOLDIMG TP! 
1 685 F'3= TFT i 1 F0-P3 ) -■■• 1 OO 

1699 RETURN 

1695 REM THIS SUE CALCULATES THE EMPLOYER UNEMPLOYMENT TRY 

1700 REM INPUT IS UIjM 

1705 REM Ul IS THE STATE. UNEM, F US IS THE. FEDERAL UNEM, PORT I OH 

1710 REM AND U3 IS A MISC. AMT. TO DEFER F'OOM FOR FUTURE EYPANSIFM 

1715 LET U3=@ 

1730 REM THIS IS THE MISC. AMOUNT U3 

1735 LET U£=470O 

! F30 REM THIS IS THE UNEMPLOYMENT CEILING PAYROLL 

1735 F3=U3*N 

1740 IF U1>U3 THEN 1785 

1745 REM THIS IS FOR AC CUMULATED TOTALS 

1750 U5==03 

1755 REM THIS IS THE STATE" UNEM RATE INITIALLY 

1760 U6=.01 

1F65 REM THIS IS THE FED ADDITION 

1770 Ui=Ui'«U5 

1775 U£=U1*U6 

1730 GOTO 1835 
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1735 PEM THIS SUE 

1799 IF W8=£l THEI 

1795 i.ii=U3 : «U5 

1 800 U£='- '3 s1 . '€. 
305 LET H8=£l 
319 GOTO 18,25 

1315 LET U 1=9 

1390 LET U£=0 

1 8£5 RETURN 

1838 END 



.T THE CUTOFF FOE UHEM PAYMENTS 
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Payroll Modifications 

There are only two modifications that may be made to enhance the operation 
of this program. They were not made before inclusion of the program in its 
present form because of the compatibility problems that exist between Ad- 
vanced Basic compilers. The first and foremost modification would be to 
change the PRINT statements to PRINT USING statements in the report print 
outs. The second modification would be to use a Data File to feed informa- 
tion to the program instead of using internal DATA statements. If these 
modifications are not made the payroll program will still function normally 
and without error. These changes are primarily intended as a convenience 
factor, Not as a necessity. 

The PRINT statements in all four of the reports may be converted to PRINT 
USING statements for added report clarity. The PRINT statements in the 
following lines should be converted: 835, 865, 890, 905, 1050, 1070, 1100, 
1235, 1240, 1450 and 1460. The TAB( ) spacing for printing on the check 
and stub are listed on lines 630 to 680. By changing these tab constants 
the spacing between fields on the check and stub may be altered to conform 
to the particular check form in use. 

The program may also be modified to allow the entry of employee data from 
a Use File rather then from the internal Data statements. This would require 
the addition of a FILES statements and conversion of the READ statements to 
READ # statements. The exact file modifications will depend on the computer 
system and Basic compiler version being used. If the program is modified 
for a Use File, delete the DATA statements in the program. For additional 
memory efficiency the PRINT and PRINT USING statements should be merged with 
the READ # statements. This merger should not be made unless the program has 
been modified for a Use File. 
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RUM 



TYM-: lr\ T\\F rn.lMBFR OF HmUF'S I'l THIS PRY PfPTOTis 330 

E1TTER THF TjfiTE (IX" ll^c ! :0."75 ) 17P--' 24 -■-?':> 

Hlf! FILL. EMPLOYEES HOPE IFF F"U! L # OF HOURS i'YES np 110): 1 1f 

ETI IT'ETR THF MUNUER OF EMPLOYEES T'i-IHT TLOHH' WiRV IMF FULL 
Ml IMEEIR OF HOURS FOR THTS PRY PFRIOTiS?! 

T'i'F'F X i -1 THE EMPLOYEE" #j THFH # OF" HOURP HOPE Em FlS RSKOi 
IHPUT~€MP#? # HOURS HK's ?37c'£? 7£ 

IMUFiLLU EMPLOYEE LUMBER - TRY AGAIN. 
I NPUT--EMP# 5 # HOURS WL : ?3 7 2 1 ? 7? 



THF FfilLiiHIMG IS Fi 1 1ST OF REPORTS flUflILHBL£. 

Tfi CHOOSE Of IE TYPE IN TEIE # NEXT TO THF HFS ! RE.H RFPORT 

j - F'PIiiT PflYr>|fcXKS 

d = TRBULRTE PRYEOLL RECORD 

., = f TKT j:. f ,ip.| ! Vr'E E RECORDS 

4 = summer t7e employer try rfcopn 

5 = home: 



HH1CH OHE DO YOU WISH TO D0:?1 



WHEN THE CHECKS ARE IN PLACE TYPE A 
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iOliri 11. HOYLE 



7,?1 JOHN H. DOYLE 



CRflf'l 






■:< i( , J i 



6819 



R. CRRMER 



!-!U 






J. '+ « '_■ i 



Z> •'-"." .4 ..""7'c:- 



189. 15 
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TI-IF: FOFFOHJHG IS Fl FIST OF REIPOPTS RHOIFRBLE 

TO CHOOSE ONE TYPE Hi TOE # NEXT to the desired report 

I _ prii-it PAYCHECKS 

P = TO FOLATE PAYROLL RECORD 

?. = FIST EMPLOYEE RECORDS 

4 = SOHHERIZE EMPLOYER TRY RECORD 

= NONE 

WHICH nhe HO YOO wish th DOsPS 



i :. : I 



I SRMF 



FMP# 



i IET PAY 



JOHN M. DOYLE 
G. P. FORMER 
PHIL JOHNSON 



E'l 



£34.4 



1 ki9 R' 



JTHL 
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TllF ri.iL.LOH I liG IS Li ST Of REPORTS Ri IRILR'R!. E 

to choose: one typf in ti ie # next to thf uf'sipeu report 



j = [■-•■PINT PfiYPHETKS 

d = TABULATE' PRYROt L RECORD 

3 -■ list employee records 

i = summer i ze employer tfix record 

5 = none: 

which one do you wish to do?"?? 



TFFIF 



PRY 



(.J Y 



POTF 



ih 'FT r |T I 



f f:d "Ri' 



I i h: ! i 






JOHN M. DOYLE 



CKFlMER 



PHIL. jOHr^;riM 



;i » 40 



' „ 04 
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T! It: FOLLONING IS H LIST OF REPORTS FiHfi 11, HE! ...E 

TO CHOOSE ONE TYPE IN THE # NEXT TO THE 'DESIRED EEPOP' 

1 = PRINT PAYCHECKS 

a = tabulate: payroll record 

3 = LIST EMPLOYEE REEORDS 

4 = SUMNER I ZL EMPLOYER TRY PECOPD 
=: - riOHE 

HHICH ONE HO YOU HISH Tn Tnj: 74 



■y\ P I f 



f: I"-' [i 



TOT FICF 



Jl rfc.Ii 



TOT 



T 



T MT !-,!": 



GR F : 'AY ST LiriEM 



FED UME 



i. ;-.••' a I' C 



3b 

24 



£ ":■ , . I i 



THE FOI LOWING IS Fi 1 1ST OF REPORTS RUHIL.fi ELF 

TO CHOOSE ONE TYPE IN THE # NEXT TO THE: DESIRED REPORT 

i = PRINT PAYCHECKS 

£ = TABULATE PAYROLL RECORD 

3 = LIST EMPLOYEE RECORDS 

4 = SUMMER I ZE EMPLOYER TRY PECOPD 

5 = NONE 

WHICH ONE DO YOU WISH TO DO: 75 
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RISK: 

DESC R IPT I ON 



This is a risk analysis program. It is used to analyze the probability of 
financial success regarding purchasing of stocks or new product sales. It 
considers the factors that will effect the cash flow for the investment. 



USE R S 

Persons or companies who consider capital investments will find this 
gram of considerable aid in determining the feasability of success. 



pro- 



INSTRUCTIONS 

Most of the data will have to be entered into the program before execution, 
The program is self prompting and will ask for additional data as needed 
during execution. The program should be listed for additional information. 
The particular model of your system will have to be entered between lines 
1000 and 2000. 



LIMITATION S 

Line 200 contains DIM X(20,8), line 502 contains DEF FNR, and line 980 
contains MAT = ZER statements. This program requires 10K Bytes of memory 
for storage. Thirty three kilo Bytes will be required for execution with 
the DIM statements set as shown in the listing. The program as shown con- 
tains all data and a model necessary to execute an example. This data 
and model will have to be removed before entering your data and/or invest- 
ment model . 
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£8 REM 
35REH 
38REM 
35REM 
40 REM 
45REM 
58 REM 
53REM 
•j-_th.c-Pi 
60EEM 
65REM 

88REM 

100 DflTfl 188 

101 DflTfl 15 
DflTfl 8 
DflTfl 9 
DflTfl 
DflTfl 



DESCRIPTION — RISK ANALYSIS PROGRAM EASED OM HERTZ 

SIMULATION MODEL DESCRIBED IN .JAN-PEE 
19t.4 HER ARTICLE. 

ISTRUCT IONS-LINES 100-199 ARE RESERUED EOR DATA, 

LINES 9S5-S008 ARE RESERUED EOR THE MODEL. 

*s R SAMPLE PROBLEM RUN EXISTS IN THE 
PROGRAM — TYPE RUN TO USE ..... 



I©;? 
103 
104 
1 05 
1 06 
107 
108 



j@@yg, £95808? 348888 
L"8 



Hh 



.IFE?5 

• JO? i t' ? 1 C. ? 1 _■ 

DATA O j . 1 ? . 40 ? . 40 ? 
DATA MARKET SIZE? 5 
DATA 1 88998 ? 1 78888 ? 
189 DATA 8? . 18? . 38? . 48? 

110 DATA MARKET GROWTH RATE? 7 

111 DflTfl 8? .81? . 0£? .83? .84? .85 
11£ DflTfl 8? .85? . 15? .30? .30? . 15? .85 

113 DATA SHARE OF MARKET? 6 

1 14 DATA .03? .06? .89? . 1£? . 15? . 17 

1 15 DATA 8? . 18? . 15? . 48? . 38? . 85 

116 DATA SELLING PRICE? 5 

1 1 7 DATA 385 ? 458 ? 5 1 8 ? 548 ? 575 

1 18 DATA 8? . 18? . 45? . 35? . 18 

119 DATA OPERATING COSTS? 6 

1 £8 DATA 378 ? 488 ? 435 ? 478 ? 585 s 545 

1£1 DATA 8? .15? .35? .35? .18?. 85 

1££ DATA INUE8TMENT?6 

1 £3 DATH 7800900 ? 8000880 ? 9O000O0 ? 95080O0 ? 1 0000000 ? 1 85888G10 

1£4 DATA 8? .85? . 15? . 35? .35? . 18 

1£5 DATA RESIDUAL UALUE?4 

1 £6 DATA 3500000 ? 4808080 » 45OOO00 ? 5090009 

1 £7 DATA 9? . £9? . 49? . 49 

1£8 DATA FIXED COST? 6 

1£9 DATA £50090? £75000? 380069? 325600? 350000? 375000 
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13@ DATA 0? . 18? . 30 j . 30? . £0? . 10 

£00 DIM UC5083 ?RC508 3 ?XC£0?8) ?YC£8?83 ?XSC£0) ?FC1803 ?GC1003 

£ 1 D I M H f £0 ) ? Z C 500 ) ? C ( £0 3 ? CS C £0 3 

£1£REM 

£14 LET Z8=l 

£16 LET Z9=.10 

818REM 

££U PRINT "DO YOU WANT TO USE DATA? (YES OP NO 3" ? 

£30 INPUT 01$ 

£43 PRINT 

£50 IF 015= "YES" THEN £90 

£60 LET Q9=P0=Q8=8 

£70 GO SUE 300O 

£80 GO TO 970 

£85REN NUMBER OF ITERATIONS 

£90 READ N£ 

£91REM NUMBER OF INTERNALS IN HISTOGRAMS 

£9£ READ S9 

£99REM NUMBER OF CONSTANTS IN MODEL 

300 READ N9 

310 IF N9=0 THEN 350 

3£0 FOR 1=1 iO N9 

3£5REM NAME OF CONSTANTS? UALUE OF CONSTANT 

330 READ C£ C 1 3 ? C ( 1 3 

340 NEXT I 

345REM NUMBER OF CATEGORIES 

350 READ HI 

360 FOR I = 1 TO Nl 

365REM NAME OF CATEGORIES? NO OF STEF'S IN CATEGORY 

370 READ XSCI3 ?NCI3 

380 FOR J = 1 TO NCI) 

385REM UPPER LIMITS OF STEPS 

390 READ X CI? J) 

400 NEXT J 

405 LET P£=0 

410 FOR J = 1 TO NCI 3 

415REM PRIORS ON INTERUALS BETWEEN LIMITS 

4£0 READ Yd j J) 

4£5 LET P£=P£+YCI?.J3 

438 NEXT J 

43£ IF ABSCP£-1)<.0001 THEN 440 

434 PRINT " 

SUM OF PRIORS FOR "?X$mJ" DOES NOT EQUAL 1" 

435 STOP 
440 NEXT I 
445 GO TO 970 
450REM sffisesrG 

5O0REM FUNCTION-RANDOMLY SELECT A UALUE TO BE USED FOR 
501REM A PARTICULAR UARIABLE. 

502 DEF FNRCM3 

503 LET SI = O 
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5@4 LET Rl = RNIHX3 
565 FOR K9 = 1 TO MCM) 
596 LET SI = Si+YlM ? K9) 

507 IF R1>=S1 THEN 510 

508 LET FNR = HCM? K9--1 1 + CRMDCX) *(XCM»K9) -X CM? K9-1 1 ) ) 

509 GO TO 511 

510 NEXT K9 

511 FNEND 

5 1 5REM sssshsww 

970 FOR 10 = i TO N£ 

980 MAT F = ZER 

985REM ** MODEL IS ENTERED IN LINES 1880-1999 ** 

990REN NO. OF YERRS OF LIFE 

1088 LET N3 = INT (FNR (1) + .5) 

1805REN MARKET SIZE IN PERIOD 8 

1010 LET R1=FNRC£) 

1015REM INUESTNENT CASH FLOW IN PERIOD 8 

10S-8 LET Fi8)=-1*FNRC7) 

1838 LET Gl=l 

1835REN FOR EACH YEAR OF LIFE 

1848 FOR 1=1 TO N3 

1845REM MULT I PL I CAT I UE GROWTH RATE PERIOD I 

1058 LET Gl = Gi*(l+FNR(3n 

1855REM MARKET SIZE PERIOD I 

1068 LET A3 = A1 S G1 

1865REM QUANTITY PERIOD I 

1078 LET A3 = fl£*FNR<4) 

1875REM UALUE OF SALES PERIOD I 

1838 LET A4 = A3*FNR(5) 

18S5REM OPERATING COSTS PERIOD I 

1898 LET CI = FNR (6) 

1895REN IS UALUE>=QTY * OP. COST 

1180 IF A4>=A3*€1 THEN 1138 

1118 LET A3 = O 

1138 LET A4 = 8 

1135REM TOTAL COST PERIOD I 

1138 LET A5 = FNR(9)+A3*C1 

1135REM CASH FLOW PERIOD I 

1148 LET Fill = R4-A5 

1158 NEXT I 

1155REM ADD RESID. UALUE TO CASH FLOW LAST PERIOD 

1168 LET FCN3) = F CN3) +FNR C83 

3888REM soesMM END 8F MODEL *as«S0* 

£818 FOR I = 8 T3 N3 

3815REM PREPARE FAR RATE OF RETURN SUBROUTINE 

£8£8 LET GCI+l) = F(I) 

£038 NEXT I 

£032 IF I8>1 THEN £848 

£834 GOSUB S00O 

£848 GOSUB 5588 

£050 NEXT 10 
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£066 GOyUB 6000 

£070 IF 015= "YES" THEN 99999 

£080 LET Q9 = 1 

£090 GOSUB 3000 

£100 GO TO 970 

30O0REM ** INPUT ROUTINE ** 

3O0£ IF 09=1 THEN 3£40 

3010 READ QjQjQ 

3O£0 PRINT "HOW MfiNY CONSTANTS IN YOUR MODEL"! 

30££ INPUT N9 

30£3 IF 09=0 THEN 3040 

30£4 PRINT 

30£6 PRINT "ENTER THE UALUES FOR THE FOLLOWING: " 

30£8 PRINT 

'.3030 FOR I = 1 TO N9 

303£ READ C£ CD? Q 

3034 PRINT c$m ; 

3036 INPUT CCI) 

3038 NEXT I 

3040 PRINT 

3041 PRINT "HOW MANY RANDOM UARIfiELE CATEGORIES IN YOUR MODEL"? 
304£ INPUT HI 

3043 PRINT 

3044 PRINT " FOR THE FOLLOWING ITEMS THE USER SHOULD" 

3045 PRINT "ENTER THE EXPECTED UALUE* THE LOWEST REASONABLE" 

3046 PRINT "UALUE AND THE HIGHEST REASONABLE UflLUE. " 
3050 PRINT "SEPARATE BY COMMAS." 

3068 PRINT 

3070 PRINT " FOLLOWING THE USER'S ENTRIES A RANGE OF UALUES" 

3088 PRINT "WILL BE TYPED OUT. UNDER THIS WILL BE THE PERCENTAGE' 

3090 PRINT "CHANCE THAT THE UALUE WILL FALL WITHIN A GIUEN RANGE.' 

3100 PRINT 

3118 PRINT 

31£0 PRINT »*3KWNOTE3**3«IF THE USER IS UNHAPPY WITH THESE FIGURES?" 

3130 PRINT " HE WILL HAUE AN OPPORTUNITY TO CHANGE THEN" 

3148 PRINT " LATER ON." 

3150 PRINT 

3155 PRINT 

3156 PRINT TAB (£5) 5" EXPECTED , LOW? HIGH" 

3157 PRINT 

3158 LET Q£S="ABC" 
3168 FOR 1 = i TO Nl 
3170 LET NCI) = 5 
3175 LET Y(I» 1) = O 
3180 READ X$(I) jQI 
3198 FOR J = 1 TO 01 +01 
3£88 READ 

3£18 NEXT J 
3££0 GO SUB 4500 
3£38 NEXT I 
3 £35 LET Q0=P@=@ 
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3240 PRINT "DO YOU WANT TO CHANGE ANYTHING"? 

350 INPUT Q2£ 
3260 PRINT 

70 IF Q2£="N0" THEN 3460 
75 LET GO = 1 
::2S0 PRINT "INDEX NUMBER OF ITEM TO CHANGE"? 

E:90 INPUT I 

300 PRINT 

5319 PRINT "DO YOU WANT NEW VALUES"? 
20 INPUT Q3$ 
3a PRINT 
5340 IF Q3£="N0" THEN 3380 

350 PRINT "INPUT 5 NEW VALUES"? 

360 I NPUT X £ I j 1 3 ? X i. I < £ 3 * X ( I ? 3 3 ? X C I j 4 ) ? X 1 1 1 5 3 
:370 PRINT 

380 PRINT "DO YOU WANT NEW PERCENTAGES" 5 

390 INPUT Q3$ 

400 PRINT 
3410 IF Q3$="N0" THEN 3440 
3415 LET PO = 1 
3420 PRINT "INPUT 4 NEW PERCENTAGES"? 

430 I NPUT Y ( I ? 2 3 ? Y ( I ? 3 3 ? Y f. 1 5 4 3 ? Y ( I ? 5 3 

432 LET P2=Y ( I ? 2 3 +Y ( I ? 3 3 +Y ( 1 5 4 3 +Y C I ? 5 3 

3433 IF ABSiP2-13<.0001 THEN 3438 

3434 PRINT " 

SUN OF PRIORS DOES NOT EQUAL 1" 

3435 GOTO 3420 
3438 PRINT 

3440 GO SUB 4580 

3450 GO TO 3240 

3460 PR I NT "HOW MANY TIMES DO YOU WANT TO ITERATE. 03 WILL STOP PROGRAM"! " 

3470 INPUT' N2 

3490 PRINT 

3588 IF N2=0 THEN 99999 

3502 PRINT 

3504 PRINT "HOW MANY INTERVALS DO YOU WANT IN THE HISTOGRAMS"? 

3586 INPUT S9 

3508 PRINT 

3518 RETURN 

450OREM s**MORE INPUT*** 

4585 IF Q8=l THEN 4640 

4520 PRINT 

4530 PRINT i;X$(I3 5TABC243; 

4 540 I NPUT X £ 1 5 3 3 t X C I » 1 3 ? X ( I ? 5 3 

4550 PRINT 

4588 IF X(I ? 13<1 THEN 4628 

4598 LET X £ I ? 2) = X (1,1 3 +INT ( ( (X ( I ? 33 -X ( 1 » 1 3 3 .-•£)+. 53 

4 668 LET X C I ? 4 3 = X ( I ? 3 3 + 1 NT ( ( ( X ( I » 5 ) -X ( 1 1 3 3 3 /■£ 3 + . 5 3 

4618 GO TG 4648 

4 620 LET X £ I ? 2 3 = X ( I ? 1 3 + ( f X ( 1 1 3 3 -X t I s 1 3 3 - y 2 3 

4630 LET X(I?43 = X C I ? 33 + 1 (X ( I? 53 -X ( I ? 33 3 .'"23 
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4635REM UALUES ssffiK^KSwsswsKSffissfssss 

4 64S PR I NT TRB C £ ) ? X 1 1 j 1 3 5 TAB (173? X C I ? £ 3 5 TAB C 3£ J 5 X f I « 3 3 j TAB ( 47 3 5 

4658 PR I NT X ( I ? 4 3 ? TAB i 6£ 3 j X C I ? 5 3 

465£ IF Q££="YES" THEN 4788 
IF Q0=1 THEN 4699 
IF PS=1 THEN 4730 
LET VfIj£J=Y(I 5 51=.10 

Y ( I j £ 

Y i I j 5 
X(I) £ 
X ( I ? 3 



4fc.._0 

4656 

4660 

4690 

4700 

4710 

47£0 

4730 

4740 

4750 

476ti 

4770 

4 

4 

4790 

4800 

4810 

48£0 



LET- 
LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 
? 5REM 
30 PRINT 



y;-; 
Q4 
Q5 
Q6 
Q7 
Oft 



i £3 -!=■ 



:(i 
:i't 



13 ). -••'£) 3 
4'i l ,••?"[ "I 



PRINT ' 
PRINT 
PRINT 
RETURN 



3 "*=(X tl ? 13 + C (XCI: 
j S( v f £,4) + ( [V( j , 

3 + ( (XC I ?33-X( I?£3 3--'£3 
) + i. ( X i I j 4 3 -X C I ? 3 3 3 .-''£ 3 
1--Yil?£3-Y(l5 53 
Q4-Q5 

( X ( I ? 3 3 ~Q£- ( Q5* : Q6 3 -Q3 3 ■•••'Q7 
r 1 1 5 3 3 = 0.8 
r" f I ? 4- ) = 1 -Q8-YC I ? £3 -Y( I ?53 

PERCENTS K5KHM3K3K3K3«3«3K3«9«3K3K5K!«i«3«5Kl« 

TAB i. 9 3 j Y ( I ? £ 3 ? TAB L £4 3 5 Y ( I « 3 3 5 TAB t 39 3 « Y ( 1 1 4 3 5 TAB i 54 3 ? 
Y ( I ? 5 3 



50OREM 
585REM 
506 IF Z8=8 



RATE OF RETURN AND PRESENT UALUE SUBROUTINES 

RATE OF RETURN 
THEN 5688 



5518 LET R1=R£=R3=8 
38 LET R4 = INT LNS.-c 
548 LET R5 = Rl 



•j ■_< 



5588 
5598 
5688 



LET R6 
LET R7 
LET R£ 
LET R3 = ( 
NEXT I 
5618 LET Rl = R5 
56£8 LET R£=R3=0 
5638 LET R8 = Rl 
5648 IF ABSCR83> 
5658 LET R(I83 = 
5678 LET R(I83 = 



1 TO N3+1 

= I-R4 

= ~i*R6 

= ( G C 1 3 * f EXP ( 1 3 1 1 R5^R7 3 3 3 +R£ 

= >; ( R7**g r 1 3 3 * ( EXP ( 1 3 t i. R5 ffi R7 3 3 3 +R3 



OR£vR33 



5688REM 

5698 LET 

5788 

5718 

5711 

57 1£ 

5713 

5714 

57£8 

5738 

•_■ f C-_> 



R5 

880005 THEN 5548 

i:expi:i)-t-ri3~i 

INT ( 18008^: ( 183 +. 53 --" 10000 
NET PRESENT UALUE 
R1=Z1=Z£=0 
FOR I = O TO N3 
LET R 1 = R 1 + t F ( 1 3 s ( t 1 +Z93 1 1 3 3 
IF F(I3>0 THEN 5714 
LET Z 1 = Z 1 + i ABS C F ( 1 3 3 / i. i 1 +Z9 3 1 1 3 3 
GO TO 57£8 

LET Z£ = Z£+ (F t 1 3 .-- ( ( 1+Z93 tl 3 3 
NEXT I 

LET UCI83 = Rl 
LET Z ( 1 8 3 = I NT C 1 8888® ( Z£.-"Z 1 3 + . 5 3 -'" 1 8088 



601 



-_' I 



P4@ RETURN 

6000REM SET UP FOR HISTOGRAM PRINT SUBROUTINE 

60OS IF Z8=0 THEN 6050 

60IO PRINT "RATES OF RETURN FOR" I N£? "SAMPLES" 

6020 PRINT 

SOS© LET II = 1 

6O40 GO SUE 7kl00 

6050 PRINT "NET PRESENT UALUES FOR" ?N£« "SAMPLES" 

606O PRINT 

6070 LET II = £ 

6079 MAT R=ZER 

6080 MAT R = R+U 
6090 GO SUE 7000 

610O PRINT "RATIOS OF NET PRESENT UALUE FOR" ?N£? "SAMPLES" 

6110 PRINT 

61£0 LET 11=3 

61 £9 MHT R=ZEE 

6130 MAT_R = R+Z 

6140 GO yUE 7y00 

6150 RETURN 

700OREM PRINT HISTOGRAMS SUBROUTINE 

7010 LET Rl=R£=Pm 

701£ LET A9£ = "*" 

7O£0 FOR I = £ TO N£ 

7030 IF R(I)=Ri THEN 7110 

7040 IF RCIKR1 THEN 7080 

7050 IF RCi:i=R£ THEN 7110 

7060 IF RCI)>R£ THEN 7100 

7070 GO TO 7110 

7080 LET Rl = PCI) 

7090 GO TO 7110 

7100 LET R£ = RCIJ 

7110 NEXT I 

71£0 ON II GO TO 7130? 7150 ? 71 30 

7 1 30 LET R3 = I NT ( 1 000*: ( ( R£-R 1 ) s i S9- 1 ) ) + . 5 ) s 1 000 

7140 GO TO 7160 

7150 LET R3 = INT C ( (R£~Ri ) ^ tS9-l ) ) +.5) 

715£ IF R£< 99999 THEN 7160 

7154 PRINT "FOR ACTUAL UALUE MULTIPLY BY lOOO" 

7156 PRINT 

7160 MAT H = ZER 

7170 LET S4=S5=H1=0 

7180 LET SI = Rl 

7190 FOR 1=1 TO S9 

7 £00 LET S£ = S1+R3 

7£10 FOR -J = 1 TO N£ 

7££0 IF RU)>=S£ THEN 7£70 

7£30 IF RUKS1 THEN 7£70 

7£40 LET H(I) = HCD+i 

7£50 LET S4 = S4+RU) 
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7£60 LET S5 = S5+P(J)t£ 

7 £7@ NEXT J 

7£7£ ON II GO TO 7£74? 7£78j 7£74 

7 £74 PR I NT I NT C S 1 * 1 Of 4+ . 5 ) / 1 0t4 5 " LESS THAN " i I NT ( S£* 1 8t4+ . 5 ) / 1 8T4 5 

7£76 GO TO 7£S£ 

7£78 IF R£< 99999 THEN 7£81 

7£79 PRINT INT (S1/1S00+. 5) 5 " LESS THRN" 5 INT (S£/1000+. 5) \ 

7 £30 GO TO 7£8£ 

7£81 PRINT INTCS1+.5) i" LESS THRN" ;INT(S£+. 5) 5 

7£8£ PRINT TREOIJ? 

7£83 IF HCI)=8 THEM 7£88 

7£84 FOR J = 1 TO H(I) 

7 £85 PRINT R9S5 

7£86 NEXT J 

7£88 PRINT TABC55) ?HCI} 

7 £90 LET SI = S£ 

7300 LET Hi = Hl+Htl) 

7318 NEXT I 

73£0 PRINT 

7330 PRINT 

7340 ON II GO TO 7358? 7370? 7:-:5y 

7350 PRINT "MEAN"; INTC 18888^ (S4^H1 ) +.5) ,-18888 

7366 GO TO 7388 

7378 PRINT "MEflN"5S4,-Hi 

7388 PRINT 

7398 LET U4 = CSS.-Hi )- ( lS4^Hi 1T£) 

7400 print "STANDARD DEVIATION"? INT Q888esSQRCV4:i +.5) ,-18888 

7410 PRINT 

74£0 PRINT 

7438 PRINT 

7440 RETURN 

80O0REM PRINT FIRST SET OF FLOWS 

8810 PRINT "FLOWS FOR THE FIRST ITERATION F0R"?N3+i; " PERIODS" 

8830 PRINT 

8838 PR I NT " PER I OD " , " FLOW " 

8040 PRINT 

3850 FOR 1=8 T8 N3 

8868 PRINT I « F 1 1 ) 

8878 NEXT I 

8888 PRINT 

8890 PRINT 

8108 RETURN 

99999 END 
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ENTERING DATA 

Lines 100 thru 199 are reserved for entering your data into the program. In 
the program's source code listing lines 100 thru 130 contain sample data, 
this data must be deleted from the program before entering your data. Most 
of the data must be entered in DATA statements before the program is run, 
however a built in routine permits some data to be input during execution 
of the program. 

The sample program cut shown here and the definitions immediately following 
are provided as an aid to understanding the program and the data entry format. 



: * ; L 1ST iJ?!Q-"J. ; .*i 

109 DATA 100 
101 DFlTFl 15 

105 "URTFl 

103 DFlTFl 9 

104 DFlTFl ! IF"E?5 

100 DATA 5? 8? 105 105 15 

106 DATA 0? . 105 - 405 . 40? . 10 

107 WITH MARKET SIZE? 5 

i QC; TiFiTF) 1 0W000 5 1 70008 5 £'50080 5 £95000 j 34000y 

109 DFlTFl 5 . 105 . 305 . 40? . £0 

110 DFlTFl MARKET GROWTH Pl : !TE?7 

1 1 1 DATA 5 . 1 ? . @£ ? » 03 ? . 04 5 . 05 5 , 0b 
1 IE DATA A? . 05? . 15? . 30? „ 305 . I"'? . 05 

113 DATA SHARE OF MARKET 5 6 

1 1 4 DATA . 93 5 . OS ? . 09 ?.!£?.! 5 ? . 1 .-' 

115 DATA 0? . 105 . 105 . 40? . 30? . 05 
j. 1 1' on ! i ! -.LLL i i v.s r r-. I L-r_, ? -j 

1 1 7 DATA 3S5i ? 459 ? 5 1 ? 540 ? 575 

118 DATA 0? . 10? . 45? ■ .35? . 13 

119 DFlTFl OPERATING COSTS? A 

1 £0 DFlTFl 373 ? 400 ? 4 35 ? 470 ? 505 ? 545 
1 £ 1 DATA O ? . 1 5 ? . 35 ? . 35 5 . 1 5 . '35 
1££ DATA ]>!0ESTT1EHT?b 

1£3 DFlTFl 7000 W00? G000080? 90000005 95! : ::10300? 10000090? It! 5 03 00@ 

1 £4 DhTFi O 5 . 05 ? . i 5 5 „ 35 ? . 35 ? . 1 " " 

1£5 DATA RESIDUAL UFlLUE?4 

1 £6 DATA 3500800 ? 4O00O00 ? 4500030 ? 5000080 

137 DATA 0? „ £0? . 40? . 40 

1£8 DATA FIXED COST? 6 

1 £9 DFlTH £50080 ? £?5fi0y ? 309080 ? T, £5O00 < 3 ,= i0000 ? 37 c: i0uO 

1 30 DATA 3 ? . 1 3 ? . 33 ? . 30 ? . £0 ? . 1 9 
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TH E MODEL 

Lines 1000 thru 1999 are reserved for entering your model. The sample cut 
shown here and the explanations following it have been provided to aid you 
in programming your own model. Substitute your model for the one contained 
in the program before running. 



M ;-;••-,_ . C '|,-|L-||,-| 



■18- 1999 



IT; OITE 

990REM MO. OF' YEFlRS OF LIFE" 
1088 LET 1-13 = INTTNECLi +• .5) 
1005RFN MARKET SIZE TM PFPIOn 8 
1818 LET Fll ~ FHRL :: 

1015REM INVESTMENT CFiSN FLOW IN PERIOD 8 
18;E'8 LET FTOj = -l^FMRC?) 

1838 ! FT Gl = 1 

1035RET! FOR EACH YEFiR OF" LIFE 

1@48 FOR 1 = 1 TO N3 

1045REM MHLTIPLICRTIUE GROWTH ROTE PERIOD I 

1 858 LET G 1 = G 1 » ! C 1 +FNR ( 3 ) ) 9 

1055REM MARKET SIZE PERIOD I 

1060 LET R£ = FliE^GI 

IRbSRFM quantity' PER I OH I 

1878 LET R3 = ffi^F'NR ( 4) 

1875REM URLUE OF SALES PERIOD I 

1080 LET R4 = RS^FMEOji 

1.085REM OPERRT1MG COSTS PERIOD I 

1090 LET CI = FNR(6) 

1895REM IS URLUE >=QTY "# DP. COST 

1180 IF R4>:=R3«C1 THEN 11 3D 

1.110 LET R3 = 

11 £8 LET R4 = 8 

11S5REM TOTAL COST PERT mi J 

1138 LET R5 = FNRCSJ+RRMCl 

1138REM CRSH FLOW PERIOD I 

1140 LET Ft 1 .1 = R4-R5 

1150 NEXT I 

1155REN HDD RES ID. UflLUE TO CRSH Fl OW LOST PERIOD 

1 1 CO LET F f N3 J --• F ( i 13 1 + FNF' C 8 ) 
£000F:EM »:»:»:»;ffi Q'.]Tj pp.- mojjei »:;«*;;«*: 
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PROGRAM DATA DEFINED: 

Line 100: # of iterations or trials to be used to generate the cash flows. 

Line 101: # of discrete increments wanted in histogram. 100 iterations would 
require somewhere between 12 and 20; the example uses 15. 

Line 102: # of constants or nonrandom variables in the model. This number re- 
presents the total number of items in the model whose values remain 
unchanged in each set of cash flows generated. 

Line 103: # of random variable categories in the model. This number represents 
the total number of items in the model whose ultimate values will be 
randomly selected by the program. 

Line 104: Name of the first variable factor, # of steps for this factor (never 
more than 8). The example uses 5. 

Line 105: The upper limits for each step. There must be an equivalent number 
of values entered as there are steps in the preceding line - in this 
case there must be 5. 

Line 106: Estimated chance expressed in percentages of the future value falling 
into each step. The first number must always be a 0. The chances when 
summed should equal 100%. Counting the as one, the total number of 
chances must be equal to the number of values entered in the preced- 
ing line - for the example this is 5. The data line in the example 
reads: a 0% chance of life being less then 5, a 10% chance of its be- 
ing between 5 and 8, a 40% chance of its being between 8 and 10, a 
40% chance of its being between 10 and 12, and a 10% chance of its 
being between 12 and 15. 

Line 107: See line 104 above. Lines 104 thru 106 should be repeated for as 
many random variable factors as called for in line 103. In this 
example this is 9. 

NOTE: If the data item in line 102 is a number other than 0, the user will have 
data statements on those constants starting in line 103 and continuing for 
a corresponding number of lines thereafter. The data that now appears start- 
ing in line 103 would then begin in the first line after the data statements 
for the constants. Suppose for example this particular problem contained 2 
constants, months equal to 12 and purchase price equal to 250. Lines 102 
thru 104 would then read: 

102 DATA, 2 

103 DATA MONTHS, 12 

104 DATA PURCHASE PRICE, 250 

The data now in line 103 and the data in the subsequent lines would now 
begin with line 105. 

REMEMBER: Data must be entered in DATA statements, all DATA statements are read 
and the names of the constants and the random variable categories are used in a 
questioning process. 
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MODEL PROGRAMMING DATA 

Lines 200 and 210 contain the dimensioned variables used in this model. When 
programming your model these variables, with the exception of F(I) should be 
deleted. 

Variables that have not been used in the program and are available for the 
user are: A0, Al, A2, ...., A9; B0, Bl, B2, ...., B9; and C0, CI, C2, ...., 
C9. 

The subscripted "F" represents the cash flow for a given or calculated period. 
Your program must be written so as to end up with a value for F(0) - cash flow 
in period and values for F(l) through F(N3) - cash flow in period 1 through 
cash flow in last period. 

Your model must calculate a value for "N3", the number of periods of cash flow, 
excluding period 0. 

FNR(M) is a function which selects a value for a random variable factor given 
your value intervals and probabilities for that factor. In place of the "M" in 
FNR(M) substitute the number or index of the factor whose value you want to cal- 
culate. In the example there are 9 random variable factors contained in the DATA 
statements; Life is #1, Market Size is #2, Market Growth Rate is #3, Share of 
Market is #4, etc. Thus the statement in the program model, line 1010 which reads 
LET Al = FNR(2) sets Al equal to some Market Size, which falls within one of the 
intervals set by you. This function is completely defined in lines 500 thru 511, 
where X(MK,9) is the actual value for factor M; step K9 - and Y(M,K9) is the pro- 
bability for category M; step K9 S K9 = 1 to the number of steps in factor "M". 

Model Location - When the model is confined to lines 985 thru 1999, it is auto- 
matically embedded in the loop - 970 FOR 10 = 1 TO N2 - where, N2 is the number 
of iterations specified in DATA line 100; in the example this is 100. It is nec- 
essary to program the model as if it were to be run only once, otherwise the it- 
eration procedure is effected. Use the variables I, J, K and L with the F0R-NEXT 
statements in the model. 



To demonstrate more clearly how to go about programming your own model an ex- 
planation of what the model in this example is calculating is included here. 
A new product line is to be analyzed and management has provided the data for 
the 9 key factors shown in DATA lines 104 thru 130. The relationships among 
these variables is described below: 
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Line 1000: The number of periods is computed by rounding off, using the in- 
tergerizing function INT. Life is the first category therefore., 
FNR(l) provides the random draw for Life. 

Line 1010: The Market Size in period - Al, is set equal to the random 
draw for Market Size; the second category. 

Line 1020: The cash flow in period - F(0), is set equal to the negative 
of the random draw for Investment; the seventh category. Note: 
If the values in line 123 had been entered as negatives then 
line 1020 would read - 1020 LET F(0) = FNR(7). 

Line 1030: This line initializes the variable Gl to 1, which represents 
the Market Growth Rate in each period and is considered to be 
1 in period 0. 

Line 1040: The cash flows F(I) are computed for each period, from 1 to N3, 
in a loop which extends from line 1040 to line 1150. The "I" re- 
presents the index number of the period. 

Line 1050: The multiplicative Market Growth Rate in period 1 - Gl, is set 
equal to the growth rate in the previous period times one plus 
the Market Growth Rate in period I; the third category. 

Line 1060: The total Market Size in period I - A2, is set equal to the 
Market Size in period - Al, times the multiplicative Market 
Growth Rate. 

Line 1070: The quantity to be sold by the company in period I - A3, is set 
equal to the total Market Size - A2, times the random draw for 
Share of Market; the fourth category. 

Line 1080: The total value of the sales of the company in period I - A4, is 
set equal to the quantity sold - A3, times the random draw for 
Selling Price; the fifth category. 

Line 1090: The operating cost per item in period I - CI, is set equal to the 
random draw for Operating Costs; the sixth category. 

Lines 1100 - 1120: If the total value of the sales by the company - A4, are 
greater than or equal to the total operating costs - A3 times CI, 
then the company will produce the product in period I and both 
the quantity to be sold - A3, and the total value of sales - A4, 
will retain their values previously computed. If the total value 
of the sales - A4, is less than the total operating costs - A3 
times CI, then both A4 and A3 are set equal to 0, i.e., in period 
I the company will not produce or sell any of the product thereby 
avoiding all marginal costs. 
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Line 1130: The total costs in period I - A5, is set equal to the random 
draw for Fixed Cost; the ninth category, plus the total opera- 
ting costs - A3 times CI. 

Line 1140: The cash flow in period I - F(I), is set equal to the value of 
sales in period I - A4, minus the total period costs - A5. 

Line 1160: The cash flow in the last period - F(N3), is set equal to the 
value previously computed in line 1140 for F(N3), plus the ran- 
dom draw for Residual Value; the eighth category. 



Modifications: 

It may be necessary to omit or remove the rate of return routine because it is 
often programmed to simply to allow for all the solutions that are possible 
when calculating the rate of return. If your model generates a set of cash flows 
that never change sign - the error message OVERFLOW will appear indicating the 
need to either reprogram the model or eliminate the rate of return routine. This 
routine may be eliminated by changing line 214 to read: LET Z8=j9. 

In the example the net present values are set to be discounted at a rate of 10%. 
If a different rate is desired, change line 216 from: LET Z9=.10 to the discount 
rate desired. If discounting is not wanted, change line 216 to read: LET Z9=0. 



An example of the output of RISK is shown on the next two pages. The output 
starts with the set of cash flows generated during the first iteration (addi- 
tional outputs have not been shown due to the amount of space that would be 
required to show the remaining iterations). A quick check of the first set of 
cash flows will allow you to determine if the figures seem reasonable. Histo- 
grams for the Rates of Return, Net Present Values and Ratios of Net Present 
Values follow the cash flow and following the histogram are the Mean and Stan- 
dard Deviation for the particular measure plotted in the histogram. 
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SCHEDULE 2: 

DESCRIPTION 

Schedule 2 computes the best assignment of personnel or resources to loca- 
tions. This program can also determine the most efficient scheduling of 
jobs in a machine shop or men to various jobs. 



US ER S 

This program will be useful to individuals who have to schedule resources or 
the flow of work through an office. 



IN STRUCTIO NS 

Your data must be entered into data statements before the program is run. The 

program is documented and should be listed for instructions. Sample data is 

contained in lines 6020 to 6190 and should be removed before entering your 
data. 



This program requires matrix manipulations. In line 150 is a DIM A(20,5) 
statement and line 470 contains a Print Using statement. It requires 34K 
Bytes of on line memory for storage and execution. The execution length 
may be reduced by lowering the size of the DIM statements in lines 130 to 
170. The program source code requires 12K Bytes for storage. 
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SCHEDULF 



PR 1 T NT " GEOMETE I C S I MULRTOR " 

WT 



ily PR TNT ''GEOMETRIC SIMULATOR" 

ISO PRINT 

138 DIM EC 15) 

140 DIM RC15) 

158 DIM AC£8?5) ?BC15) ?TC15) ?FC 15) 

168 DIM SC15? 15) ?PC15? 15) ?MC16? 16) ?GC15? 15) 

178 DIM UC15? 151 ,ui 15? 15) ?WC15? 15) ?ZC15? 15) 

188 REFiD N?H 

198 IE N <> 8 THEN 398 

£08 REfiD N?M 

P 1 fi PF? T NT " T NsTPI if:T T f\HP, l " 



£ 1 PR I NT " I NSTPUCT I ONS : 

££8 PR I NT "THIS PROGRAM CALULATES hi JOE SHOP SCHEDULE USING" 

£38 PRINT"H HEURISTIC GEOMETRIC METHOD." 

£40 PRINT"ENTER DRTR IN THE FOLLOWING ORDER BEGINNING" 

£50 PRINT" IN LINE 60885" 

£68 PRINT" * THE NUMBER OF JOBS TO £E PROCESSED? " 

£78 PRINT" * THE NUMBER OF MACHINES? " 

£88 PRINT" * THE SEQUENCE MATRIX SCI? J) BY POMS" 

£98 PRINT" WHERE SCI? J) IS THE SEQUENCE OF THE I'TH" 

380 PRINT" JOB ON THE J ? TH MACHINE?" 

310 PRINT" a THE PROCESS TIME MATRIX PC I, J) BY ROUS" 

3£8 PRINT" WHERE PC I? J) IS THE PROCESS TIME REQUIRED" 

338 PRINT" BY THE I'TH JOB ON THE J'TH MACHINE." 

348 PRINT 

358 PR I NT "SAMPLE DATA IS ALREADY IN LINES 6088-6198." 

368 PRINT 

378 PR I NT "TO EXECUTE THE PROGRAMS" 

388 PRINT" TYPE 'DELETE 6880-6198' CDELETES SAMPLE DATA)" 

398 PRINT" ENTER YOUR DATA" 

488 PRINT" TYPE 'RUN 5 " 

418 PRINT 

4£8 PRINT"THIS PROGRAM REQUIRES LARGE AMOUNTS OF PROCESSOR TIME" 

438 PRINT 

448 PR I NT "THE FOLLOWING IS A SAMPLE EXECUTION USING THE" 

458 PR I NT "SAMPLE DATA. " 

468 PRINT 

478 PRINT USING 488? N?M 

4 88 : SCHEDULING ##-JGBS ON ##-MACHINES 

498 FOR 1=1 TON 

588 FOR J=1T0M 

518 READ SCI? J) 

5£8 LET NfI+l?i+J)=8. 

538 NEXT J 
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"'■4-fc? 

5 60 

58@ 
59@ 



HLX i J. 
FOR 1=1 TON 
FOR ,1=1 TOI1 
READ P(IjJ) 
NEXT J 
NEXT I 



4fi - I ; 



ffi ..i) ? Si I jj) ; 



600 PRINT" INPUT" 

616 PR I NT "SEQUENCE MATRIX-S" 

6£0 PRINT 

630 GOSUB 650 

640 GO TO 720 

650 PR I NT "MACHINE 1 "? 

660 FOR 1=8 TO N 

670 PRINT TflBf I ffi 5) 5 I i 

680 NEXT I 

£90 PRINT 

700 PR INT "JOE" 

710 RETURN 

7£0 FOR 1=1 TON 

730 PRINT USING 

740s ## 

750 FOR J= I TON 

760 PRINT TAB (5: 

770 NEXT J 

780 PRINT 

790 NEXT I 

SO© PRINT 

810 PRINT 

8£0 PR I NT "PROCESSING TINE MATRIX-P" 

830 PRINT 

840 GOSUB 650 

850 FOR 1=1 TON 

860 PRINT USING 

870 FOR J=iTOM 

880 PRINT TAB (5. 

390 NEXT J 

900 PRINT 

910 NEXT I 

980 GOTO 1070 

930 PRINT 

940 PRINT 

950 PR I NT "OUTPUT SCHEDULE" 

960 PRINT 

970 PR I NT " C7=RULE " 

980 PRINT"C=NO. OF ITERATIONS" 

990 PRINT TAB (16) i "INITIAL COHB. "? TAB (48) ; "ITERATIONS" 



,-■ 4w ? I ? 

S J) ?P(I 5 J) 5 



1000 PRINT TAB (IE 
1010 PRINT TAB (38 
1080 PRINT "R.S. " 
1030 PRINT TAB (38 
1040 PRINT "L.S. " 



) 5 "TMIN" ? TAB (£5) J "TAUE" ? 

);"TNIN"5TAB(51)?"TAUE" 

j TAB ( 1 £) J "fl ( 1 , 1 ) " J TAB (£5) < " A ( 1 , £) " 5 

) i " A (£, 1 ) " ", TAB (51 ) j "A (£, £) " 

5ThBC1£)j"A(3 ? 1) ,, ?TAB(35) 3"A(3j£) "5 
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1 @58 PR I NT TAB C 38 } j " Fl C 4 , 1 1 " ? TAB C 5 1 ) 5 " A f 4 - i : 

I860 REM CflLC TOTAL PROCESS TIME FHR . UTRS 

1878 EOR 1=1 TO M 

1888 LET PCIjM+1. )=8. 

18y8 FOR J=l TOM 

1 1 OO LET P ( I f M+ 1 . ) =P i: I , M+ 1 . ) +P i" I j . ! 1 

HIS NEXT .J 

1180 NEXT I 

1130 LET E=S. 

1140 LET 01=0. 

1150 LET C£=l. 

1160 LET T=9880. 

1170 LET C3=T 

1188 LET C6=0. 

1190 LET 07=1. 

18M0 LET L=l. 

1810 LET Xi = i. 

1880 LET X8=0. 

1830 LET X3=0. 

1848 LET X4=0. 

1858 LET R(£j3)=T 

1868 REM GENERATE M ( 1 + 1 , l + .ii 

1878 FOR I=8T0N 

1888 FOR J=@TOM 

1 890 LET M C I + 1 , 1 +S ( 1 1 J } i =■ I 

1388 NEXT J 

1318 NEXT I 

1388 REM GENERATE MAX SEQ NO. IN . HIBS 

1338 FOR 1=1 TON 

1348 LET S=8. 

1358 FOR J=1T0M 

1368 IF S(IjJK=S THEN 1388 

1378 LET S=S(I»J) 

1380 NEXT J 

1390 LET B(I)=S 

1400 NEXT I 

1410 LET fi(l»l)=T 

1480 LET A (8 » 1)=T 

1430 LET A (3? 1)=T 

1448 LET A (4 j 1 ) =T 

1458 LET R(1j3)=1. 

1468 LET fi(i»£)=T 

1478 LET fl(£,£)=T 

1488 LET fi(3»£)=T 

1498 LET AC4?81=T 

1588 LET 06=8. 

1518 FOR H=1T0N 

i5£6 LET 05=8. 

1538 LET 0=1. 

1548 IF 06=1. THEN £388 

1558 FOR 1=1 TON 
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1568 FOR .J=1T0M 

1579 LET G£IjJ)=0. 

1586 NEXT J 

1590 NEXT I 

1600 LET E3=T 

1618 REM RIGHT SHIFT 

16£8 FOR I=1T0N 

1638 LET D(I)=B(I) 

1640 LET FCi:i=E3 

1658 LET T(I)=B3 

1660 LET Ri".i:i=PC I,M+1. ) 

1670 NEXT I 

1630 IF C5=l. THEN 1758 

1 690 LET Y=M ( H+ 1 » 1 +D C H ) ) 

1788 LET R(H)=R(m-PCH»Y) 

1710 LET G(H»Y)=T-P(H»Y) 

17S8 LET Fi'H:i=G(H? y:i 

1738 LET TtH)=Fi:H) 

1740 LET n(H:i=Ii(H'i-U 

1750 LET C4=l. 

1760 IF L=£. THEN 511© 

1770 FOR I=1T0N 

1 780 LET Y=M (1+1,1 +H ( J ) ) 

1790 IF Y>0„ THEN 1820 

ISO© LET TCI) =8. 

1818 GO TO 1890 

1888 FOR K=1TQN 

1838 IF K=I THEN 1888 

If: 48 IF TCD-PCIjY) >= G CK? Y) +PCK? Y) THEN 1888 

1858 IF T(I)<=G(K»Y) THEN 188© 

I860 LET T(I)=Gi:KjY:i 

1878 GO TO 1888 

1888 NEXT K 

1898 NEXT I 

1988 REM FIND MAX PRIORITY FOR RULES WITH TCI) 

1910 LET J=0. 

1980 LET S=0. 

1930 FOR I=1T0N 

1948 LET Y=M(I + 1»1+D(D) 

1 950 LET Z 1 =X 1 *T C I ) -X£*P ( I » Y ) +X3*P CI > Y ) +X4*R C I ) 

I960 IF ZKS THEN £018 

1978 IF Z1>S THEN 1998 

19:38 IF PUfMU+l»l+DUm<=P(I»MCI+l»l+D(im THEN £810 

1990 LET S=Z1 

£080 LET J=I 

£018 NEXT I 

£028 IF S=8. THEN £160 

£830 REM UPDATE 

£840 LET Y=MCJ+1j 1+IK-J) ) 

£858 IF L=3. THEN £888 

£068 LET G C J j Y ) =T C J ) -P ( J ? Y ) 
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£@70 
£080 
£090 
£100 
£110 
£1£0 
£130 
£140 
£156 
£ 1 60 
£170 
£130 
£190 
££30 
££10 

■Z' O OiT-j 

££30 

££40 
££50 
££60 
££70 
££80 
££90 
£300 
£310 

£330 
£340 
£350 
£36u 
£370 
£380 
£390 
£400 
£410 
£4£0 
£430 
£440 
£450 
£460 
£470 
£480 
£499 
£560 
£510 
£5£0 
£530 
£540 
£559 
£560 

C-_>! W 



iii:j)=Di: j 3-1 . 

1770 

RESET G(IjJ) TO ZERO START TIME 
FIHD MIN GC I «MC 1+1*1+13 3 
S=T 
I=1T0N 

;(I»M(I+lf 1+1) 3 >=S THEN £££@ 
tl?fif 1 + 1 jl + 1) J 



GO TO £090 

LET GU?Y)=S 

LET FU3=GU ? Y3 

LET RU)=RU)-PU>Y) 

FOR I=1T0N 

LET T(I3=Fi:i3 

NEXT I 

LET 

GO 1 

REM 

REM 

LET 

FOR 

IF t 

LET S=l 

NEXT I 

FOR 1=1 TON 

FOR .1=1 TOM 

LET G(IjJ)=G(IjJ)-S 

NEXT J 

NEXT I 

REM END (4503 

REM END RIGHT SHIFT 

GO TO £940 

REM LEFT SHIFT 

LET C4=£. 

FOR 1=1 TON 

FOR J=1T0M 

LETGCI ? J3=T 

NEXT J 

NEXT I 

FOR I=1T0N 

LET In; 1 3 = 1. 

LET Fi:i3=0. 

LET Til 3=0. 

LET R(I)=P(I»M+1.) 

NEXT I 

IF C5=l. THEN £510 

LET Y=M(H+1j 1+1) 

LET R(H)=R(H)-PCH»Y) 

LET GCH?Y)=0. 

LET F(H)=P(HfY) 

LET D(H)=D(H)+1. 

LET T(H)=Fi:H) 

LET L'4=£ . 

IF L=£. THEN 53£0 

FOR 1=1 TO N 

if ni:ix=Ei:i3 then £570 

LET T(I3=T 
GO TO £650 
LET Y=M i I + 1,1 +11(1)1 
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£538 FOR K=1T0N 

£'599 IF K=I THEM ,2649 

£680 IF T(I)+P(IjYK=G(KiY) THEM £646 

£610 IF T(IJ >=G ( K ? V ) +P C K , Y ) THEN £649 

£ 6 £0 LET Til) =G C l< ? Y ) +P ( K ? Y ) 

£630 GO TO £530 

£640 NEXT K 

£650 NEXT I 

£660 REM FIN MIN PRIORITY FOR RULES WITH Til) 

£670 LET -J=0. 

£630 LET S=T 

£690 FOR 1=1 TOM 

£700 LET Y=M 1 1 + 1 ? 1+D C I 1 ) 

£P10 LET Zi=Xl*T(I)+X£*P(IjYJ+X3K(1000.-P(Ij Y) ) +X4«C4000.-R ( I ) ) 

£7£0 IF 71 >S THEM £77© 

£730 IF 2KS THEN £75© 

£740 IF Pi J ? M i J+ 1, 1+D ( J ) ) ) < = P ( I » M ( I + 1 j 1 +D ( I ) ) ) THEN £77© 

£750 LET S=ZI 

£760 LET 3=1 

£770 NEXT I 

£730 IF S=T THEN £940 

£790 REM UPIiflTE 

£300 LET Y=M ( J+i » 1 + D (J) ) 

£810 IF L=3» THEM £840 

£8£0 LET G(J»Y)=T(J) 

£830 GO TO £850 

£840 LET G C J ? Y 1 =S~P ( J ? Y ) 

£ 8 50 LET R C J 3 =R ( J J -P ( J ? Y ) 

£ 8 68 LET F t J ) =G C J * Y ) +P ( J ? Y 1 

£878 FOR 1=1 TOM 

£888 LET TfI)=FCI) 

£898 NEXT I 

£980 LET D(J)=D(J)+1. 

£910 GO TO £5£0 

£9£8 REM EMU LEFT SHIFT 

£930 GO TiJ £948 

£948 REM CflLC fit I j J) 

£958 LET El=8. 

£968 LET E£=9. 

£970 FOR I=1T0N 

£980 LET S=G C I » M C 1 + 1 » 1+E ( I ) ) ) +P ( I » M ( 1 + 1 » 1+B ( I ) ) ) 

£998 IF S<=E1 THEN 3010 

3800 LET E1=S 

3018 LET B£=B2+S 

30£O NEXT I 

3038 LET E£=E£-^N 

3048 IF E=£. THEM 3060 

3058 GO Tu 315y 

3068 IF B1>=R(£j3) THEN 3150 

3078 LET fli£?3)=Bl 

3080 LET fl(3»3)=E£ 
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3@yy LET HC4j3)=C? 

3189 FOP 1= ITOri 
3118 FOR J= 1TOM 

31£8 LET Z(IjJ)=G(I»J) 

3138 NEXT J 

3140 NEXT I 

3150 IF C6=l. THEN 3508 

3160 IF C5=l. THEN 3358 

3178 LET B3=B1 

3130 LET E=l. 

3190 LET C5=l. 
3£88 LET C=£. 

33 10 IF Bl >=fl ( 1 j 1 ) THEN 3848 

3££8 LET fl(l» 1)=E1 

3£38 LET fi f 1 ? £3 =B£ 

3£48 IF Bl>fl(£»i) THEN 3£78 

3 £58 LET FfC£? 13=B1 

3£68 LET FK£ ? £)=B£ 

3£70 IF E=3. THEN 3£98 

3 £88 GO TO 3848 

3£98 FOR 1= I TON 

3380 FOR J= 1TOM 

3318 LET U(If J)=GtIjJ.l 

33£0 NEXT J 

3338 NEXT I 

3348 GO TO P.PA& 

3358 IF B1>=B3 THEN 3868 

3360 IF Bl>=F!i£jl) THEN 3388 

3378 LET R(£, 1)=E1 

3388 LET B3=B1 

3398 LET C=C+1. 

3488 IF B£>=fli;£j£) THEN 34£8 

3418 LET fl(£ f £)=B£ 

34£8 IF E=3. THEN 3440 

3430 GO TO 3840 

3448 FOR 1= 1TON 

3450 FOR J= 1TON 

3460 LET U(I»J)=G(I*J) 

3470 NEXT J 

3480 NEXT I 

3490 GO TO 3848 

3580 IF C5=l. THEN 3690 

3510 LET B3=E1 

35£8 LET B=l. 

3536 LET C5=l. 

3540 LET C=£. 

3550 IF Bl>=fl(3»l) THEN 3848 

3560 LET fl(3» 1)=B1 

3570 LET fi(3»£)=B£ 

3588 IF Bl>fl(4»l) THEN 3610 

3598 LET n(4» 1)=E1 
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i£B 



? fctf 



3688 LET H(4?£3=B2 
36 10 IF E=3. THEM 3638 
3 6 £8 GO TO 3848 
3638 FOR 1=1 TON 

3648 for j= iron 

3658 LET W C I ? J) =G ( I ? J) 

3668 NEXT J 

3678 NEXT I 

8688 GO TO :j848 

3698 IF E1>=E3 THEM 3868 

3788 IF Bl>=fl(4 ? 1) THEN : 

3718 LET R(4j 1J=E1 

3720 LET B3=E1 

3738 LET C=C+1. 

3748 IF B£>=fl(4 ? £) THEM ■ 

3758 LET fl(4?£)=B£ 

3760 IF E=3. THEM 3788 

3778 GO TO 3848 

3788 FOR 1= I TON 

3798 FOR J= 1TON 

3880 LET Z ( I j J ) =G C I ? J ) 

3810 NEXT J 

3888 NEXT I 

3838 GO TO 3848 

3848 IF C4=l. THEN £388 

3858 GO TO 1610 

3868 IF C<=AU»3) THEM 3888 

3878 LET fif. 1j3)=C 

3888 NEXT H 

3898 IF C6=l. THEM 39£8 

3988 LET C6=l. 

3918 GO TO 1518 

39£8 GOTO 3998 

3938 PRINT 

3948 PRINT "C7="87< "C="A( 1 ?33 

3958 PRINT "R.S. "5 TABUS) iR(l » 1) 5TAB(£5) 5 A ( 

3 9 60 PR I NT TAB C 38 ) > fl ( £ t 1 1 5 TAB ( 5 1 3 5 A ( £ t £ 3 

3978 PR I NT " L . S . " ? T RE ( 1 £ } 5 A ( 3 , 1 3 5 TAB « 25 ) 5 fl ( 

3988 PRINT TAB (38) j fl (4? 1 3 5 TAB (51 3 5 A (4? 2) 

3998 IF E=3. THEN 48 10 

4aoti GO Tu 4448 

4818 PRINT 

40£O PRINT "SCHEDULE-UCI?-J3" 

4a:-:0 GOSUB 650 

4040 FOR 1= 1TON 

4058 PRINT USING 740? 15 

4066 FOR J= 1TOM 

4078 PRINT UCI»J) 5 

4088 NEXT J 

4090 PRINT 

4100 NEXT I 



1 ? £ 3 5 
-J j t! 3 s 
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4119 
4 1 £6 
■4 130 
4 1 40 
4 1 50 
4160 
4170 
4180 
4 1 90 
4200 
4fc! lfci 
4££8 
4£30 
4 £40 
4£50 
4 £60 
4 £70 
4 £80 
4 £90 
4300 
4310 
43£0 
4338 
4348 
4358 
4360 
4378 
4388 
4398 
4488 
4418 
44£8 
4438 
4448 
4458 
4 4 68 
4470 
4488 
4498 
4588 
4518 
4 5 £8 
4538 
4548 
4558 
4568 
4578 
4588 
4598 
4688 



PRINT 

PRINT 

PRINT 

GOSUE 

F8R I 

PRINT 

FUR J 

PRINT 

NEXT 

PRINT 

NEXT 

PRINT 

PRINT 

GOSUB 

FUR I 

PRINT 

FGR -J 

PRINT 

NEXT 

PRINT 

NEXT 

PRINT 

PRINT 

PRINT 

GUSUB 

FUR I 

PRINT 

F8R J 

PRINT 

NEXT 

PRINT 

NEXT 

PRINT 



''SCHEDULE-MI I ?.Ji 

658 
= 1TGN 

USING 748? I j 
= 1T8M 

uci? j) ; 
j 



i 



658 

= 1TON 
USING 740? I j 
I TOM 

wci j.j.h ; 



I 



"SCHEDULE-Ztlf J)" 
658 
= 1T0N 
USING 748? I j 

1TOM 
Z C I ? J j ; 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
LET 



C7=l. 

C7=4. 

C7=5. 

L- l~ =Z !"* v 

C7=fc 



THEN 45£8 
THEN 4588 
THEN 4648 
THEN 4788 
THEN 4778 
THEN 4838 
THEN 4898 
THEN 4958 



LET 
LET 
LET 
LET 
GO TO 
LET C 

LET X 



1 = 1. 
c! = l * 
3=8 . 
4=8 = 
1418 

£=8. 
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4619 LET X3=l. 
46£8 LET X4=S. 

4639 GO TO 1410 

4640 LET C7=4. 
4650 LET Xl=l. 
4660 LET X£=8. 
4670 LET X3=8. 
4688 LET X4=l. 
4690 GO TO 1410 
4700 LET C7=5. 
4710 LET L=£. 
47£8 LET Xl = l. 
4730 LET X£=0. 
4740 LET X3=8„ 
4750 LET X4=8. 
4760 GO TO 1410 
4770 LET C7=6. 
4780 LET XI =8. 
4798 LET X£=l. 
4800 LET X3=8. 
4818 LET X4=8. 
4888 GO TO 1418 
4838 LET C7=7. 
4848 LET XI =8- 
4850 LET X£=8. 
4868 LET X3=l. 
4878 LET X4=8. 
4888 GO TO 1418 
4898 LET C7=8. 
4988 LET XI =8. 
4918 LET X£=8. 
49£8 LET X3=8. 
4930 LET X4=l. 
4948 GO TO 1410 

4950 IE E=l. THEN 5090 

4960 PRINT 

4970 PRINT"»sra*SCHEDULE OE -JOE START TIMES***" 

4980 PRINT 

4990 GOSUE 658 

5888 EOR 1=1 TO N 

5818 PRINT USING 748? 15 

58£8 EOR J= 1TOM 

5838 PR I NT THE ( 5 . * J ) » Z ( I » J) » 

5848 NEXT J 

5858 PRINT 

5868 NEXT I 

5878 PRINT 

5880 PR INT" TOTAL TINE ="5flfSj3) i " AUERflGE TIME ="jfl(3»3) 

5898 GO TO 5668 

5188 REM RIGHT SHIET RULES WITHOUT TCI) 

5118 GOSUE 5538 
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5120 IF J=@. THEH 2160 
5130 LET I=J 

5 1 49 LET Y=M ( I + 1 ? 1 +.u (111 

5150 FOR K=i TO M 
5160 IF K=I THEM 52 10 

5170 IF T(I)-PfljY) >= G(Kj YI+PCKjYI THEN 52i0 

5180 IF T(I3<=GCK<Y3 THEN 5210 

5190 LET T ( I ) =G i: K j Y 1 

5208 GO TO 5150 

52 10 NEXT K 

5220 REM UPDATE 

5230 LET G(JjY)=TCI)-P(J!Y) 

5240 LET FU3=GU?Y3 

5250 LET R(J)=R(J)-P(JjY) 

5260 LET D(J)=T)(J)-i. 

5270 FOR 1=1 TON 

5280 LET T(I3=F(I3 

5298 NEXT I 

5300 GO TO 5110 

5310 REM LEFT SHIFT RULES WITHOUT T(H 

5320 GOSUE 5530 

5330 IF J=9. THEN 2940 

5340 LET I=J 

5350 LET V=M(I+1j 1+DCI) 3 

5360 FOR K=l 10 N 

5370 IF K=I THEN 542© 

5380 IF T(I)+P(I) Y3<=G(K?Y3 THEN 542© 

5390 IF Till >=G ( K ? Y 1 +P C K ? Y 3 THEN 5420 

5 400 LET TCI) =G ( K ? Y 1 +P ( K ? Y 3 

5410 GO TO 5360 

5428 NEXT K 

5430 REM UPDATE 

5440 LET GUjY1=Ti:I1 

5 450 LET F C -J 3 =G C -J ? Y 1 +P C J ? Y 3 

5460 LET R(J)=R(J)-P(J»V) 

5470 LET I1(J3=DU3+1. 

5480 FOR 1=1 TO N 

5490 LET T(I3=F(I3 

5500 NEXT I 

5510 GO TO 5320 

5520 REM SUBROUTINE FIND MAX PRIORITY WITHOUT T ( 1 3 



crcr 



55 



530 LET R=-l 
40 LET J=0. 



;i550 FOR 1= 1TON 

5566 IF R(I)=0, THEN 564© 

5570 LET Y=M(I + Ij 1+INI3 3 

5580 LET Z1=X1*:P(I) Y3 +X2 S R ( 1 3 +X3 S C i£i00„~P(l, Y3 3 +X4$ (4000. -R (1 3 3 

5590 IF ZKR THEN 5640 

5600 IF Z1>R THEN 5620 

5610 IF P ( J » M ( J+ 1 ? 1 +D ( J 3 3 3 < =P ( I ? M ( I + 1 ? 1 +D ( 1 3 3 3 THEN 5640 

5620 LET R=Z1 
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5639 LET J=I 

5649 NEXT I 

5650 RETURN 
5660 STOP 

6W00 REM THE FOLLOWING IS SAMPLE DATA AND SHOULD BE DELETED 

6010 REM DUMMY N»M TO CAUSE INSTRUCTIONS TO BE PRINTED 

60S0 DATA 05 

6030 REM 6 JOBS ON 6 MACHINES 

6040 DATA 6? 6 

6050 REM SEQUENCE DATA 

60€>0 DATA £ ? 3 ? 1 ? 4 ? 6 ? 5 

6070 DATA 5 j 1 ? £ ? 6 ? 3 > 4 

60S© DATA 4 ? 5 ? 1 ? £ ? 6 ? 3 

6090 DAT' A £ ? 1 s 3 ? 4 ? 5 j 6 

6 1 00 DATA 5 ? £ ? 1 j 6 s 3 ? 4 

6 1 10 DATA 4? i ? 6; £ ? 5j 3 

61£0 REM PROCESSING TIME DATA 

6 1 30 DATA 3 j 6 j 1 j 7 j 6 < 3 

6 1 40 DATA 1 @ ? 8 ? 5 ? 4 j 1 8 ? 1 8 

6 1 59 DATA 9 ? 1 s> 5 ? 4 ? 7 < 8 

6 1 68 DATA 5 ? 5 * 5 ? 3 ? 8 ? 9 

6 1 78 DATA 3 ? 3 ? 9 j 1 ? 5 j 4 

6 1 8@ DATA 1 8 ? 3 j 1 ? 3 ? 4 ? 9 

6190 REM END SAMPLE DATA 

9999 END 
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EXAMPLE 

This example uses a 6/job - 6/machine problem as its entered data. While the 
optimal total time for this problem is 55, please note - the best schedule 
found by this program has a total time of 57. 



GEOMETRIC SIMULATOR 

INSTRUCTIONS: 

THIS PROGRAM CALCULATES fl JOB SHOP SCHEDUI E US IMG 

A HEURISTIC GEOMETRIC METHOD. 

ENTER DATA IN THE FOLLOWING ORDER? BEGIHHIHG 

IN LINE 6000 : 

® THE NUMBER OF JOBS TO BE PROCESSED? 

® THE NUMBER OF MACHINES? 

* THE SEQUENCE" MATRIX S«Ij.D BY ROWS 

WHERE SCI? I) IS THE SEQUENCE OF THE I ' TH 

JOB ON THE J'TH MACHINE? 
® THE PROCESS TIME MATRIX Pi I? J) BY ROWS 

WHERE Pa ? J) IS THE PROCESS TIME REQUIRED 

BY THE I'TH JOB OH THE J'TH MACHINE. 

SAMPLE DATA IS ALREADY IN LINES 6909-6190. 

TO EXECUTE THE PROGRAM 

ENTER YOUR DATA 
TYPE "RUM" 

THIS PROGRAM REQUIRES LARGE AMOUNTS OF PROCESSOR TIME 

THE FOLLOWING IS A SAMPLE: EXECUTION USING THE: SAMPLE DATA. 

SCHEDU1 ING 6- JOES ON 6~MAf':HINFs 

INPUT 

SEQUENCE MATEIX-S 

MACHINE 1 d 3 4 c i f, 

JOB 
1 £ 3 1 4 6 S 
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PFliCESSIOC I'lNE 1-lnTRIX-F 

IIHCHIIIF i ? 
JOB 

1 3 S 



*«*-3t HEDiJLF ! IF JOE ST'hRT TIFF-.*** 

HACHIFIE 1 S 3 
..JO B 

1 I 16 ;j 



k:l 



1 '"-! 



I.-1 



1 J 



44 



M:-1 



TOTAL TIME' = 



FlUEEFlGE' TIME 



41 



626 



SHIPPING: 

DE SCRIPT ION 

This solves the transportation problem. It is a special case of a scheduling 
assignment. It will compute the cheapest schedule of shipments between "M" 
factories and "N" warehouses. Where each factory has different production 
cost and schedules and each warehouse has different demand rates; and the 
cost of shipping to the various warehouses are also different. 

USERS 

This program is highly specialized but can be used by anyone who is concerned 
with the flow of resources, people or products, to various locations. This 
would include trucking and shipping companies, warehouse and factory business- 
men to name a few. 

I NSTRUCT I ONS 

The problem data must be entered before the program is run. The program is 
fully documented and should be listed for detailed instructions. 



L IM I T ATIO N S 

Line 600 contains DIM C(20,20), line 630 contains MAT = ZER, line 640 con- 
tains MAT = CON, line 720 contains MAT = Read, and line 3270 contains MAT 
Print statements. Twenty five kilo Bytes of on line memory is required for 
storage and execution of this program. The program will store in 10K Bytes. 
The execution length requirements may be reduced by lowering the size of 
the DIM statements in lines 600 and 610. 
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113REM 

1 1 5REM 

1 SOREM 

1 35REM 

139REM 

1 48REM 

150REM 

160REM 

170REM 

188REM 

1 90REM 

SOOREM 

£1@REM 

££OREM 

S30REM 

S40REM 

£50REM 

E60REM 

S79REM 

RftfiREM 

S90REM 

390REM 

318REM 

339REM 

330REM 

340REM 

345REM 

350REM 

390REM 

395REM 

400REM 

410REM 

420REM 

430REM 

440REM 

450REM 

460REM 

500REM 

5£0REM 

540REM 

550REM 

560REM 

570 PR 

580 PR 

590 PR 



IiESCRIPTIOr 



•ALGORITHM TO SOLUE THE TRANSPORTATION PROBLEM 



THE TRANSPORTATION PROBLEM RECEIUED ITS NAME BECAUSE IT ARISES 
UERY NATURALLY IN THE CONTEXT OP DETERMINING OPTIMAL SHIPPING 
PATTERNS. HOWEUER? MANY PROBLEMS HAUING NOTHING TO HO WITH 
TRANSPORTATION PIT THE MATHEMATICAL MODEL POR THE TRANSPORTA- 
TION PROBLEM? AND CAN BE SOLOED BY ONE OP ITS EFFICIENT PRO- 
CEDURES. TO ILLUSTRATE AN EXAMPLE OP THE TRANSPORTATION PROB- 
LEM* SUPPOSE THAT M FACTORIES SUPPLY N WAREHOUSES WITH A CER- 
TAIN PRODUCT. FACTORY I (1=1 TOM) PRODUCES Ail) UNITS? AND WARE- 
HOUSE J (J=1T0N) REQUIRES E(J) UNITS. SUPPOSE THAT THE COST OF 
SHIPPING FROM FACTORY I TO WAREHOUSE J IS DIRECTLY PROPORTIONAL 
TO THE AMOUNT SHIPPED? AND THAT THE UNIT COST IS CCIjJ). LET THE 
DECISION UARIABLES? X C I ? -U ? BE THE AMOUNT SHIPPED FROM FACTORY I 
TO WAREHOUSE J. WHAT SHIPPING PATTERN (U ALLIES OF XCIjJJ) MINIMIZES 
TOTAL TRANSPORTATION COST? 

THE TRANSPORTATION ALGORITHM USED IN THIS PROGRAM HAS BEEN TRANS- 
LATED INTO BASIC FROM ALGOL? AND CAME FROM THE COMMUNICATIONS OF 
THE ACM?U9?#i£?DEC 66. THE NATURE OF THE ALGORITHM IS EXPLAINED 
IN AN ARTICLE BY FORD AND FULKERSON? "SOLOING THE TRANSPORTATION 
PROBLEM" ? M. S. ? 1956. IN THE PROGRAM'S DOCUMENTATION? THIS ARTICLE 
IS REFERRED TO AS "F+F". 

INSTRUCTIONS— TYPE "RUN" AND FOLLOW INSTRUCTIONS. 



DATA SHOULD BE ENTERED IN THE FOLLOWING FORMAT; 



10000 DATA M?N 



1 00 1 

1 00£0 
1 0030 
1 0040 
1 00X0 



DATA 
DATA 
DATA 
DATA 
DATA 



a ( 1 1 
b(.j:i 
c c l ? 

C(£? 
C(M?. 



'THE DIMENSIONS OF THE DISTRIBUTION MATRIX 

'FOR 1=1 TO M? EACH FACTORY'S SUPPLY CAPACITY 

'FOR J=l TO N? EACH WAREHOUSE'S DEMAND CAPACITY 

REM J=l TO N? THE FIRST ROW OF THE COST MATRi; 

REM J=l TO N? SECOND ROW OF THE COST MATRIX.. 

REM -J=l TO N? THE LAST ROW OF THE COST MATRIX 



STEP 1 

READ THE DIMENSIONS OF THE DISTRIBUTION MATRIX M?N? THE SUPPLY 

AND DEMAND UECTORS ? A ( M .1 ? B ( N l ? AND THE COST MATR I X , C ( M ? N 1 . 

INT "HAUE YOU ENTERED DATA BEGINNING IN LINE 10000?" 

INT "IF NOT? LIST PROGRAM FOR INSTRUCTIONS" 

INT 
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600 DIM A(£0) ?B(£0) ? Ci£8? £0) 5 X (£8? £0) jNtc'8) ? U(£0) ? Git:©) 
6 1 a Ii I M U (. £0 J ? T ( £0 ) ? R i. £0 ) ? S i 50 ) 5 L ( 508 ) 
6 £8 READ MjN 

630 mat x=zeri:m?n:i 

640 MAT M=CON 

65a MAT T=ZER 

660 FOP 1=1 TO M 

670 READ Ad) 

675 LET A8 = AS + All) 

680 NEXT I 

690 FOR -1=1 TO II 

700 READ EfJ) 

70S LET E8 = E8 + EFJ) 

710 NEXT J 

714 IF A8=B8 THEM 7£0 

716 GO TO 3350 

7£0 MAT READ CrMsH) 



OREM - 



■1 



STEP £ 

SCAN EACH ROW OF THE COST MATRIX TO DISCOUER MINIMUM COST CELL:: 
FOP EACH ROW SET H=THE MINIMUM COST CELL? AND REDUCE THE COST 
OF EACH CELL IN THE ROW BY H. THE MINIMUM COST CELL NOW BECOMES 
A ZERU COST CELL 
1 = 1 TO 11 



EM 
EM 
EM 
EM 
EM 
FOR 

LET n(i:i = i:i 

NEXT I 



•1)*N 



1=1 TO M 
[-(=99999 



J=i 

CI?. 
H=C 



TO N 
J) >=H 

:i? j) 



THEN 880 



N 



i- 4mh: 

750R 

760R 

770R 

780R 

790 

880 

810 

8£8 

830 

848 

858 

860 

870 

880 

898 

988 

918 

9 £8 

938 

948 

950 

960 

978 

980REM £ 

998REM STEP 3 

10O8REM SCAN THOSE COLUMNS WITH NO ZERO COST CELLS TO DISCOUER THE 

1018REM MINIMUM COST CELL. FOR EACH OF THESE COLUMNS;. SET H=THE MIN- 

19S0REM I MUM COST CELL? AND REDUCE THE COST OF EACH CELL IN THE COLUMN 

1O30REM BY H. AGAIN THE MINIMUM COST CELL BECOMES A ZERO COST CELL. 

1840 FOR J=l TO N 

1058 IF U(.J)=0 THEN 1180 

1068 LET H=y9999 



LET 

FOR 

LET 

FOR 

IF f 

LET 

HEX" 

FOR 

LET 

IF Cl< 

LET U( 



■J=l TO 
C1=C(IjJ)= 

>0 THEN 

J "1 =0 



€ C I , 

HFr0 



J)-H 



LET Nl=N(i:i=N(i:i+l 
LET LfNi:i=-J 
NEXT J 

LET C=H*A(i)+C 
NEXT I 
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1970 FOR 1 = 1 TO f1 

10S0 IF C(IjJj>=H THEN llW© 

1098 LET H=C(IjJ) 

1100 NEXT I 

111© FOP 1=1 TO M 

1130 LET Ci=C(IjJ)=C(T»J)-H 

1130 IF CIO© THEN 116© 

1140 LET Nl=M(I)=NCi:i + l 

1150 LET LM1)=J 

1160 NEXT I 

1170 LET C=H«B(J)4C 

11 SO NEXT J 

1190REM 3 

1P0OREM STEP 4 

1313REM SCAN EACH RON FOR ZERO COST CELLS. IF ROW SUPPLY IS LESS TURN 

1S30REM COLUMN DEMAND < FILL fiS MUCH OF THE DEMAND FiS POSSIBLE WITH EN- 

1330REM TIRE ROW SUPPLY. IF ROW SUPPLY EQUALS OR IS GREATER THAN COLUMN 

1S40REM DEMAND? FILL ENTIRE DEMAND WITH AS MUCH SUPPLY AS IS NEEDED. 

1350REM RECALCULATE THE RESIDUAL ROW SUPPLY AND COLUMN DEMAND. AT THIS 

1360REM POINT WE HAUE ONLY ALLOCATED AVAILABLE SUPPLY TO FILL THE ZERO 

I370REM COST DEMAND CELLS IN EACH ROW. 

1380 FOR 1=1 TO N 

1390 LET 01=0(1) 

130O LET Nl=Ni:i) 

1310 FOR U=a-1)*N+1 TO Nl 

1330 IF A 1=0 THEN I440 

1330 LET J=LCU) 

1340 LET El=EfJ) 

1350 IF B1=0 THEN 1430 

1360 LET H=fli 

1370 IF AKE1 THEN 139© 

13S0 LET H=B1 

1390 LET XCI?.JJ=H 

140O LET A1=A1-H 

1410 LET BU)=B1-H 

1415REM GO TO SUB "IN". 

1430 GOSUB 3960 

1430 NEXT U 

1440 LET A(I)=A1 

1450 LET G=G+A1 

1460 NEXT I 

1470REM 4 

1480REM STEP 5 

1490REM IF CUMULATIVE RESIDUAL SUPPLY IS EXHAUSTED? WE HAUE REACHED THE 

1500REM FINAL SOLUTION TO THE PROBLEM. 

1510 IF G=0 THEN 3260 

1530REM 5 

1530REM STEP 6 

1540REM THE LABELING PROCESS IS BEGUN? EACH ROW WITH RESIDUAL SUPPLY IS 

1550REM LABELED IN ACCORDANCE WITH "F+F'S" TREATMENT? P. £7. 

1560 MAT R=ZER 
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1578 LET K=@ 

1589 FOR 1=1 TO M 

1590 IF Fim=0 THEN 1640 
1680 LET K=K+1 

1618 LET 1100=1 
16£8 LET GC I) =99999 
1630 GOTO 1650 
1640 LET Gi:i)=0 
1650 NEXT I 

1660REN 6 

1670REM STEP 7 

1680REM SCAN EACH LABELED ROW LOOKING FOR ZERO COST CELLS NOT RPF'EFlRING 

1698REN IN PREUIOUSLY LABELED COLUMNS. THE COLUMNS IN WHICH SUCH ZERO 

170OREM COST CELLS ARE FOUND ARE IN TURN LABELED. IF THERE IS A BREAK- 

1710REM THROUGH? DISCONTINUE LABELING PROCESS AND TRANSFER TO LIME 1868? 

1788REM "F+F'S P. £8. 

1730 LET L=0 

1740 FOR U=l TO K 

1750 LET I=UCU) 

1760 LET N1=NCI) 

1770 FOR S=(I-1)*N+1 TO Nl 

1788 LET -J=LiSJ 

1785REM J5 

1798 IF R(.J)<>9 THEN 1848 

1888 LET RU)=J 

1818 LET L=L.+ 1 

1888 LET UtL)=.J 

1838 IF EiJ)>8 THEN £i£0 

1840 NEXT S 

1858 NEXT U 

1868REM 7 

1878REM STEP 8 

1388REM CONTINUES LABELING PROCESS? IF POINT OF NONBREAKTHROUGH IS REACH- 

1890REM ED TRANSFER TO LINE 1548. 

1988 IF L=8 THEN £468 

1918 LET K=8 

19£8 FOR U=l TO L 

1938 LET -J=UiU;i 

1948 LET Ll=T(.j;i 

1958 FOR S=TCJ-i:i+l TO LI 

1968 LET I=SfS) 

1978 IF GtDOe THEN £818 

1988 LET GfI)=.J 

1998 LET K=K+1 

£080 LET U(K)=I 

£010 NEXT S 

£0£8 NEXT U 

£038 IF K=0 THEN £460 

£048 GOTO 1660 

£O50REM P, 

£068REM STEP 9 
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d870REM BREAKTHROUGH PROCEEDURE OCCURS WHEN WE HAUE LABELED fl COLUMN 

P880PEM THAT HAS RESIDUAL DEMAND)-©. " F+F " < P. £9 EXPLAINS THE BREAKTHROUGH 

£09OREM PPOCEEDURE. IF RESIDUAL SUPPLY IS EXHAUSTED! THEN THE SOLUTION 

2108REN HAS BEEN REACHED. OTHERWISE RECOMMENCE LABELING PPOCEEDURE BY 

£H8REM TRANSFER I NG TO LINE 859. 

£1£0 LET H=B(J) 

£138 LET P=J 

£148 LET I=RfJ) 

£158 LET -J=GCr.i 

£168 IF J099999 THEN ££80 

£178 IF fi(I)>=H THEM ££38 

£188 LET H=Hi.I) 

£198 GO TO ££38 

££88 IF Xa?.J)>=H THEM £148 

££10 LET H=XlIiJ) 

£££0 GOTU £140 

££30 LET J=P 

££40 LET BU)=BU)-H 

££50 LET fl(I)=fl(I)-H 

££60 LET G=G-H 

££70REM RE1 

££80 LET I=RU) 

££90 LET X1=X(I?.J) 

£300 LET Xi:i ? J'i= XI +H 

£310 IF Xl<>8 THEN £338 

£3 £8 GOSUB £968 

£338 LET .J=Gm 

£340 IF J=99999 THEN 1518 

£358 LET Xi=X ( I ? J) =X ( I ? J) -H 

£368 IF XlOO THEN ££70 

£370 GOSUB 3080 

£380 GOTO ££70 

E390REM 9 

E40OREM STEP 10 

E410REM NONBREAKTHROUGH PROCEEDURE OCCURS WHEN WE CAN CARRY LABELING 

£4£0REM PROCESS MO FURTHER? AND A BREAKTHROUGH HAS NOT BEEN REACHED. 

3.430REM "F+F"?P.30--31 EXPLAINS THE NONBREAKTHROUGH PROCEEDURE. WHEN THIS 

£4 40REM PROCEEDURE IS COMPLETED? RECOMMENCE LABELING PROCEEDURE BY TRANS- 

£450REM FERING TO LINE 850. 

£460 LET K=0 

2A70 LET L=N+1 

£438 FOR J=l TO N 

£498 IF R(J)(>0 THEN £538 

£588 LET K=K+1 

£518 LET Li (K j =j 

£5£8 GOTO £558 

£538 LET L=L-1 

£540 LET UfL)=J 

£550 NEXT J 

£560 LET H=99999 

£570 FOR 1=1 TO M 
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£588 IF Gm=0 THEN £648 

£598 FOR S=I TO K 

£689 LET 3=0(3) 

£6i8 IF C(I<J1>=H THEN £638 

£6£Q LET H=Ca?.J) 

£638 NEXT 3 

£640 NEXT I 

£658 FOR 1=] TO H 

£660 LET F=0 

£678 IF G(I)=0 THEN £690 

£688 LET F=l 

£698 LET Hl = lI-l)5«N 

£788 FOR S=L TO M 

£718 LET J=U(S) 

£7£8 IF F=8 THEN £750 

£738 LET 01 =0(1? J 3 

£748 GOTO £768 

£758 LET C1=C ( I » J) =C ( I » J) +H 

£768 IF ClOO THEN £790 

£778 LET Nl =4-11 + 1 

£788 LET L(N1)=J 

£798 NEXT S 

£880 FOR 8=1 TO K 

£816 LET J=U(SJ 

£8£0 IF F=8 THEN £858 

£838 LET Cl=CfI) J J =C C I ? J) -H 

£848 GOTO £"368 

£858 LET CI =C(I?. J) 

£868 IF CI OS THEN £898 

£878 LET N1=N1+1 

£888 LET L(N1)=J 

£898 NEXT 8 

£980 LET Nm=Nl 

£910 NEXT I 

£9£0 LET C=H=*G+C 

£930 GOTO 15£0 

£940REM 1 8 

E950REM STEP 11 

E960REM GOSUE "IN" 

£970 LET LI=T(J) 

£988 FOR T=TCN) TO LI STEP -1 

£998 LET StT+l)=S(T) 

3088 NEXT T 

3010 FOR T=J TO N 

3028 LET T(T)=T(T)+1 

3030 NEXT T 

3848 LET S(L1+1)=I 

3858 RETURN 

3066REM 1 1 

3078REM STEP 1£ 
3880REH GO SUE "OUT" 
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3@9@ LET L1=T(J) 

3100 FOR T=Tf,J-lJ +1 TO Li 

3110 IF SmOI THEM 3140 

3130 LET S=T 

3130 GOlO 315U 

3140 NEXT T 

3150 FOR T=J TO II 

3160 LET T(Tl=Ti'T)-l 

3170 NEXT T 

3130 LET L1=T(NJ 

3190 FOR T=S TO U 

3300 LET SCT:i=Si'T+l j 

3310 NEXT T 

33£0 RETURN 

3340REM STEP 13 

3350REM PRINT THE SOLUTION MATRIX* FIND THE TOTAL MINIMUM COST OF SOLUTION, 

3360 PR I NT "THE SOLUTION MATRIX =" 

3370 MAT PRINTX? 

3380 PRINT 

3390 PRINT "THE TOTAL MINIMUM COST OF THE SOLUTION ="?C 

3395 STOP 

330OREM 1 3 

3350 IF AS > B8 THEN 338© 

3360 PRINT "TOTAL DEMAND EXCEEDS TOTAL SUPPLY. " 
":370 GO TO 3390 

3388 PRINT "TOTAL SUPPLY EXCEEDS TOTAL DEMAND. " 
3390 PRINT "FOR THIS PROGRAM? THESE QUANTITIES MUST EE EQUAL." 
34O0 STOP 
?999 END 



ssei 
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EXAMPLES 



Example #1 

This example shows the conventional transportation problem, 
in lines 10000 thru 10050 as: 



Data is entered 



10000 3 factories, 5 warehouses 

10010 Supply of each of the 3 factories 

10020 Demand of each of the 5 warehouses 

10030 Unit costs of factory #1 to ship to each warehouse 

10040 Same information for factory #2 

10050 Same information for factory #3 



Example #2 

In this example the transportation problem is shown with certain routes re- 
stricted as it would not be feasible or practical to ship on these routes. 
A high figure (99) has been entered to eliminate these routes from allocation 



Example #3 

This example illustrates the assignment problem, that is, the assignment of 
resources to jobs. The restrictions are such that each resource can only be 
assigned to one job and conversely each job can only have one resource. When 
being solved by this method a dummy resource or job must be added if the num- 
ber of resources and jobs are unequal. Since this problem is looking for the 
a rating matrix of some kind will generally be used. Obtain- 
the rating matrix is probably the most difficult part of the 
one of the most widely illustrated linear programming pro- 
solved by use of the transportation method. 



maximum solution 
ing the data for 
problem. This is 
blems that can be 



Problem #3 has four (4) jobs but only three (3) resources, which necessitates 
the addition of a dummy resource in line 10000 to balance the supply and de- 
mand totals. Rating coefficients have been used in place of cost amounts in 
lines 10030 thru 10050. Only 3 of the 4 jobs can actually be satisified, as 
the dummy resource has been assigned to one of the jobs. 
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Example #4 

This example is a representative transportation model for a production or 
resource scheduling problem. There are of course other problems (ex. - ca- 
tering) that are similar in construction to the example problem that could 
also be solved by this method. These types of problems frequently have sev- 
eral time periods that have to be taken into consideration when solving. 

In problem #4 a particular resource is available at three (3) dispatching 
points and the demands for those resources are at three (3) receiving points. 
Already determined are the demands for three periods ahead and the maximum 
number of resource units that can be had at each dispatching point for those 
time periods. As these resources are not readily available there is a time 
lag in getting them to the demand points and it may be necessary to retain 
resources at dispatch points for one or two periods in order to satisfy the 
demand. A holdover charge of five cost units per unit of resource per time 
period is contained in this problem and a slack variable has been added as 
a dummy destination due to this holdover charge. This problem also contains 
several routes which are actually meaningless as the resources available at 
a dispatch point are insufficient to meet the demands for a particular period 
and in another instance a receiving point is too far from the dispatching 
point to avail itself of the resources during a particular time period. 
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IN 
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STOCKS; 

DESCRIPTION 

This program determines the intrinsic value of stock that may be considered 
for a capital investment. The intrinsic value is the discounted present val- 
ue of the dividends expected. 



USER? 

This program will be of use 
or play the stock market. 



to individuals or companies who invest in stocks 



IN ST RU C T IO N S 

During execution a full set of instructions will be listed to your terminal. 
It will prompt for all required data during execution. For detailed program 
information list Stocks. 



LIMITATIONS 

Line 1410 contains MAT Input, line 1450 contains NUM (X) statements. The NUM 
(X) statement is used throughout the program. Sample data is in lines 3910 
to 3930 and should be removed before the program is run. 
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M 

128PEM DESCRIPTION-- THIS BASIC PR8GRAM CALCULATES THE INTRINSIC 
138REM UALUE OF A STOCK BY THE MOLODOUSKY METHOD. 

1 48REM 

158EEM INSTRUCTIONS— "RUH" THE PROGRAM AND INPUT WILL BE 
i 68REM REQUESTED . 

178REM SRHPLE DATA FOR fl TRIAL RLIN IS PRESENTLY 

188REM IN THE PROGRAM 

1 90REN 
S88REM 

£30 D I M X C SO ) ? G ( 80 ) ? C ( 80 ) ? U C 80 ) ? Y ( SO } ? R ( 88 ) 
£35 DIM T(10) »Z(10) jK(10) 

£40 PRINT "DO YOU WRNT INSTRUCTIONS FOR SUPPLYING DATA"? 
£50 INPUT OS 
£bO LET R$ = "YES" 
£70 IF Q$="YES" THEN 410 
£88 IF QS="NO" THEN 858 
£98 IF QSO"DATA" THEN 376 
388REM 

310 REM DATA INPUT 
3£0 FOR 1=0 TO 9 
330 READ AC I) 
340 NEXT I 
358 GO TO 970 
368REM 

370 PRINT "INCORRECT RESPONSE? RETYPE IT"? 
388 GO TO £58 
390REM 

488 REM SLOW INPUT 

410 PRINT "ENTER THE INFORMATION AS CALLED FOR" 
4£8 PRINT 

430 PRINT "DO YOU WANT TO DETERMINE INTRINSIC UALUE (ANSWER ' 1 ' ) OR THE" 
440 PRINT "REQUIRED DURATION OF A SPECIFIC GROWTH RATE (ANSWER '£'):. OR" 
450 PRINT "THE REQUIRED FUTURE PRICE/EARNINGS RATIO (ANSWER '3') "5 
•460 PRINT 

470 PRINT TAB (48 J 5 "ITEM 8"? TAB (58); 
488 INPUT A (8) 
498 PRINT 

580 PRINT "CURRENT MARKET PRICE IN $" i TAB (48) 5 " ITEM 1"? TAB (581 5 
518 INPUT fid) 

528 PRINT "CURRENT EARNINGS PER SHARE IN $" i TAB (48) 5 " ITEM £"S TAB (58) 5 
538 INPUT A(£) 
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549 PRINT " NORMAL. I ZED EARNINGS THIS PER I OH IN >" j TAB (40) j 
545 PR I NT " I TEN 3 " 5 TAB C 59 ) i 

550 INPUT A (3) 

560 PR i MT" LONG TERM DISCOUNT RATE (AS fl DEC. ) " 5 TAB C48) ? " ITEM 4" j TAB ( 58)? 

570 INPUT A (41 

F.80 PRINT "LONG TERM DIUIDEND PAYOUT RATIO" 

598 PR I NT " ( AS A DEC: I MAD " 5 TAB C 40 ) ? " I TEM 5 " i TAB ( 5© ) I 

600 INPUT ACS) 

618 PRINT 

615REM SEARCH EOR DURATION OF GR RATE 

6£0 IF RC0J=e THEN 749 

625REM SEARCH FOR FUTURE F>-E RATIO 

630 IF A CO) =3 THEN 820 

f.4fi PRINT "DO YOU WANT TO FORECAST A LONG TERM GROWTH RATE (1)» OR fl" 

650 PRINT "PR I CE.-"E ARMINGS RATIO AT A FUTURE POINT IN TIME C£) " 

6 60 PR I NT TAB C 40 j i " I TEM 6 " j TAB C 58 ) I 

670 INPUT A (61 

680 PRINT 

A'=i0 IF AC6)=1 THEN 740 

780 PRINT "PRICE-EARNINGS RATIO AT FUTURE POINT" ', TAB (49) 5 " ITEM 8";TABC58) 

710 INPUT ACS) 

728 PRINT "ITEM 7* LONG TERM GROWTH RATE? IS NOT NEEDED FOR THIS CASE." 

7;-!0 GO TO 770 

740 PR I NT "LONG TERM GROWTH RATE (AS A DECIMAL) ''? TAB C 48) ?" ITEM 7" 5 TAB (50)5 

750 INPUT A (7) 

760 PRINT "ITEM 8? P--E RATIO AT FUTURE? IS NOT NEEDED FOR THIS CASE." 

778 PRINT 

7S0 PRINT "CURRENT YEAR (E.G. 1969) "? TAB (48) 5" ITEM 9"?TABC58); 

790 INPUT A (9) 

800 PRINT 

810 PRINT 

820 GO TO 970 

830REM 

840 REM FAST INPUT 

850 PRINT "ENTER ITEMS O THROUGH 6 AND ITEM 9 a \ 

fif-'.fi IMPI IT A (CD 'Ad) ■■ACS) ? A (3) ? A C4) * A (5) ? A (6) ? H (9) 

865REM SEARCH FOR DURATION OF GROWTH RATE. 

870 IF AC0)=£ THEN 930 

875REM SEARCH FOR FUTURE P--E RATIO. 

888 IF A (8) =3 THEN 958 

898 IF A(6)=l THEN 938 

988 PRINT "ITEM 8"? 

918 INPUT ACS) 

928 GO TO 968 

938 PRINT "ITEM 7"? 

948 INPUT A (7) 

958 PRINT 

9A8PEM 

978 LET F-AC1) 

9S8 LET Y=fl(2) 

998 LET Y(8)=AC3) 

1888 IF A (8) =3 THEN i960 
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1019 IF fli:7XFU4) THEM 1060 

10£0 PR I NT "LONG TERM DISCOUNT RATE MUST BE GRTR. THAN LONG TERM GROWTH" 

1030 PRINT "RATE TO MAKE SOLUTION FEASIBLE; ENTER LARGER DISCOUNT RATE"; 

1040 INPUT At: 4) 

1050 GOTO 1010 

1060 IF QSO"YES" THEN 1£30 

1 O70REM 

1080 REM SLOW INPUT 

1090 PRINT " YOU WILL NOW BE ASKED TO FORECAST A GROWTH RATE" 

1100 PRINT "IN EARNINGS? THE DURATION OF THAT RATE IN YEARS? THE" 

1110 PRINT "DIUIBEND PAYOUT RATIO FOR THESE YEARS? DISCOUNT RATE FOR THE" 

11 £9 PRINT "YEARS? THE TYPE OF ADJUSTMENT FROM THIS TO THE NEXT GROWTH" 

1130 PRINT "RATE (ANSWER »1' FOR STRAIGHT LINE. ADJUSTMENT? '£> FOR FAST" 

1140 PRINT "AND >3 ? FOP SLOW ADJUSTMENT)? THE DURATION OF THE ADJUSTMENT" 

1150 PRINT "PERIOD IN YRS.?THE DIVIDEND PAYOUT RATIO FOR THE ADJUSTMENT" 

1160 PRINT "PERIOD? AND THE DISCOUNT RATE FOR THE ADJUSTMENT PERIOD." 

1170 PRINT "THIS WILL BE REPEATED? AND YOU MAY MAKE FORECASTS REACHING" 

1180 PRINT "UP TO SEVENTY FIUE YEARS FROM THE CURRENT YEAR." 

1190 PRINT "WHEN YOU HAUE PREDICTED ALL THE SPECIFIC GROWTH RATES YOU" 

1£O0 PRINT "CARE TO? TYPE A "O" AND DO A CARRIAGE RETURN " 

1££0 PRINT 

1£30 PRINT 

1£40 LET Tl=i 

1£58 LET N=0 

1 £60REM 

1£70 LET D6=AC9)+1 

1 £80REM 

1£90 IF Q£<>"YES" THEN 1400 

1 30OREM 

1310 REM SLOW INPUT 

13£@ PRINT "FOR YEARS BEGINNING IN THE YEAR PRINTED OUT BELOW? ENTER THE" 

1330 PRINT "EARNINGS GROWTH RATE CAS A DECIMAL)? THE DURATION f\F" 

1340 PRINT "THE GROWTH RATE IN YEARS? THE DIUIDEND PAYOUT RAT in FfiP" 

1350 PRINT "THESE YEARS? THE DISCOUNT RATE FOR THESE YEARS? THE TYPE OF" 

1360 PRINT "ADJUSTMENT? THE DURATION OF THE ADJUSTMENT IN YEARS? AND THE" 

1370 PRINT "DIUIDEND PAYOUT RATIO AND DISCOUNT RATE FOR THIS AD. il ISTMENT" 

1380 PRINT "PERIOD. " 

1390 PRINT 

1400 PRINT D6?" "? 

141W MAT INPUT T 

14£6 IF Tfl)=0 THEN £090 

1425REM GROWTH RATE *m®*m 

1430 LET G=T(1) 

1446 LET G£=G 

1450 IF NUMi:X)=l THEN 1488 

1455REM FINAL YEAR AT GROWTH RATE T ( 1 ) 

1468 LET T£=T1+T(£)-1 

1470 GO TO 1490 

1480 LET T£=T1 

1498 IF NUMCXK3 THEN 156© 

1495REM DIUIDEND PAYOUT RATIO 
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158@ LET D=T(3) 

1510 IF MUM (XX 4 THEN 1578 

1528 FOR I=T1 TO T3 

1538 LET R CI XT (4) 

1548 NEXT I 

1558 GOTO 1688 

1568 LET ri=fli:5) 

1578 FOR I=T1 TO T3 

1588 LET RCIJ=fl(4"i 

1598 NEXT I 

1595REM COMPUTE EARNINGS AND DIVIDENDS 

1688 GOSUB 3£18 

1610REM 

16 £8 IF NUMCXX5 THEM 1658 

1638 LET X9=Ti5) 

1648 GO Tu 1668 

1658 LET X9=l 

1 668REM 

1678 IF HUMLXX6 THEN 1788 

1675REM FIRST YR. OF MEW GROWTH RATE 

1688 LET E=T£+1+T(6) 

1698 GO TO 1718 

1788 LET E=T£+1 

1718 IF NUMCXX7 THEN 1788 

1715REM DIM IIO ID PAYOUT RATIO 

1738 LET D=Tf7) 

1738 IF NUMCXX8 THEN 1838 

1748 F8R I=T£+1 TO E 

1758 LET Rm=T(8) 

1768 NEXT I 

1778 GGTO 1858 

1788 LET D=A(5i 

1798 IF E>T£+1 THEN 1838 

1888 LET RCEXAC4:i 

1818 GOTO 1858 

1838 FOR I=T3+1 TO E 

1838 LET Rm=fl(4) 

1848 NEXT I 

1 858REM 

1868 REM SECOND £ SUBSEQUENT GROWTH RATES 

1878 IF NUMCXX8 THEN 1898 

1880 GOTO 1918 

1898 IF NUMlXXl THEN 1948 

1988 GOTO 1938 

1985 REM FIRST YEAR 8F NEW GROWTH RATE 

1918 LET D6=D6+T(£)+T(6) 

1930 GO TO 1948 

1938 LET D6=D6+TC£) 

1948REM HPPRRRENTLY NO MORE INPUT TO COME 

1958 IF NUMCXX8 THEN £888 

1968 PRINT D65" "5 
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1979 MAT INPUT T 

1989 IF T M ) =8 THEM £090 
1935REM NEXT GROWTH RATE 

1990 LET G£=TCi) 

1995REM HO ADJUSTMENT PERIOD 

£000 IF E=T£+1 THEN £0£0 

£010 ON X9 GO TO 3£90? 341 O? 3588 

£0£O LET G=G£ 

38£5REM BEGINNING NEXT GROWTH PERIOD 

£030 LET TI=E 

£040 GO iO 1440 

£858REM REACHED TERMINAL BATE 

E868REM 

£070 REM TERM I NHL CALCULATION 

£08O PRINT 

E085REM SEARCH FOR DURATION OF GROWTH RATE 

£890 IF H(0)=£ THEN £588 

£895REM SEARCH FOR FUTURE P.-"E RATIO 

£100 IF A f 0)=3 THEN £778 

£105REM P/E RATIO TO BE USED NOW 

£118 IF A (6) = £ THEN ££30 

£H5REM LONG TERM GROWTH RATE 

£1£8 LET G£=Af7) 

£1£5REM LONG TERM DIUIDEND PAYOUT RATIO 

£130 LET D=AC5i 

£140 LET N=9999 

£145REM ADJUSTMENT PERIOD 

£150 IF EOT2+1 THEN £198 

£188 LET T1=T£=E 

E165REM YEAR BY YEAR EARN. & DIUS. 

£170 GOSUB 3£18 

£188 GOTO ££18 

£198 ON >-3 GO TO 3£98? 3410? 3588 

££88 LET T£=E 

££10 GOSUB 3748 

£££0 GO TO ££40 

£££5REM TERMINAL R.--E RATIO 

££30 GOSUB 3798 

££35REM ANNUAL INTRINSC UALUES 

££4y GOSUB 3839 

££58 PRINT 

££68 IF R$="N8" THEN £368 

££78 PRINT A f 93 J "UALUES" 

££88 PRINT 

££98 PRINT "PRICE "iP 

£388 PRINT "EARNINGS "?Y 

£318 PRINT "P--E RATIO "5 INT ( tP.-Y) $188+. 5) .-100 

£3£8 PRINT 

£338 IF fl(6)=£ THEN £360 

£348 PRINT "LONG TERM GROWTH RATE" 5 A i 7) 

£350 PRINT 
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£369 PRINT "INTRINSIC URLUE" 5 INT CUC i )*100+. 5) - y i@0 

£378 PRINT 

£380 IF" A (63=1 THEN £410 

£390 LET Ti = INTCflC8)«Y(T£)^100+.5)--100 

£40@ PRINT "FOR YEAR"? A (93 +T£? "FORECASTED R.--E IS" ? A (8) ? "AND PRICE IS"?Y] 

£410 PRINT 

£4£0 PRINT "DO YOU WANT fl LIST OF UfiLUES IN FUTURE YEARS"? 

£430 INPUT AS 

£440 PRINT 

£450 IF A$="YES" THEN £47© 

£460 GO TO £8£0 

£470 PRINT" YEAR"?" EARNINGS"?" GROWTH"? 

£475 PR I NT " URL UE-'EARNS . " ? " I MTP . URLUE " 

£488 PRINT TAB C£l 3 5 "PER SHARE"?" RflTE"?" RATIO"? 

£490 PRINT TABC613 S"BEG. OF YR. " 

£500 LET GC13=GC£3 

£518 FOR 1=1 TO T£ 

£5£0 LET 01=0(9) 

£538 PRINT I+Dl? INT(Y(I3^100+.5)^100? INTOSi I)«100+ O 5).^i00? 

£540 PRINT INK CUC 1 3 .-•■Y ( I ) 3*188+„ 53 .-'180J INT CU C I )*i@0+. 5) .'100 

£550 NEXT I 

£560 PRINT 

£578 GO TO £8£y 

£588 REN SEARCH FOP DURATION OF LAST SPECIFIED GROWTH RflTE 

8585REM ANNUAL INTRINSIC UfiLUES 

£598 GOSUB 3838 

£680 LET G3=AC7J 

£810 LET X(T£+1)=X(T£)*(1+G£) 

£6£0 LET U C 1 3 =U C 1 3 +Y CTS+1 ) ••" C 1+fi (4) 3 1 C T£+l 3 

£630 LET W=U C 1 3 + t X C T£+ 1 3 * C C 1 +G3 3 s (8(4 3 -G3 3 3 3 ••- C 1 +A C 4 3 3 1 C T£+ 1 3 

£640 IF W>=P THEN £740 

£658 LET T£=T£+1 

£668 IF T£>75 THEN £780 

£678 GG TO £618 

E688REM 

£690 PRINT 

£788PRINT"GR0WTH RATE"G£5 "MUST LAST BEYOND" ? A (93 +TE+1 ? "TOJUSTIFY PRICE" 

£710 PRINT 

£7£0 PRINT 

£738 GO TO £760 

£740 PRINT "GROWTH RATE" ?G£ 5 "MUST LAST TO" ? A (93 +TE+1 S "TO JUSTIFY PRICE" 

£750 PRINT 

£768 GO TO £y£8 

E765REM ANUAL INTRINSIC UALUES 

£77y GOSUB 3838 

£788 LET W=(P-U(l))W(l+R(T2))t(TS)/Y(T£) 

£790 PRINT 

£860 PRINT "REQUIRED P.-"E RATIO IN"? A (93 +T£? "TO -JUSTIFY PRICE IS"? 

£885 PRINT INKWai00+.53.-'100 

£818 PRINT 

£8£8 PRINT "DO YOU WANT TO CHANGE ANY OF ITEMS 8 TO 9"? 
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£830 iNPUi" R£ 

£848 IF R$="MO" THEN 3160 

£858 IF R$= ,, STOP" THEN 3190 

£868 IF R$="END" THEN 3198 

£878 LET QS="NO" 

£880 PRINT "WHICH ITEMS"; 

£898 MAT INPUT Z 

3895REM ss'« j-^i CHANGES «* 

£900 IF MUM CX 1=8 THEN 3010 

£918 LET Q£=NUMi>::i 

£915REM ^^ IMIJICATORS «® 

£9£8 LET Z1=Z£=8 

£930 PRINT "WHAT ARE THE NEW UALUES"; 

£940 NAT INPUT K 

£945REM **: MO CHANGES *s* 

£950 IF NUMCX)=e THEN 3068 

£968 FOR 1=1 TO Q£ 

£978 LETACZCI) 1 =K ( I ) 

£988 IF Zm=8 THEN 3838 

£998 IF Z CI 1=6 THEN 3818 

3880 Gu TO 3848 

3885REM CHANGE IN A (6) MAY REQUIRE OTHER CHANGES 

3810 LET Zl=l 

30£O GO TO 3848 

30S5REM CHANGE IN A (01 MAY REQUIRE 0THER FHANGE?: 

3838 LET Z£=l 

3848 NEXT I 

3858 GO TO 3888 

3868 PRINT "NO CHANGES MADE" 

3878 Gu TO 3158 

3888 IF Z£<>1 THEM 3148 

3898 IF Zl=l THEN 3138 

3188 PRINT 

3118 PRINT "ITEM 6" 5 

31£8 INPUT AC 6 3 

3138 GOTO 878 

3148 IF Zl = l THEN 898 

3150 GO TO 968 

3168 IF Q$<>'*YES" THEN 31S0 

3178 LET Q£="NO" 

3180 GU TO 968 

3190 STOP 

3£0U REM YEAR BY YEAR EARNINGS fc DIUR 

3 £18 FOR J=TI TO T£ 

3£l-:u LET YCJ:i=YC.J-l)^Cl+G) 

3 £38 LET GCJ3=G 

3£43 LET >■ C J 1 = Y i" J 1 ®H 

3 £58 NEXT J 

3 £68 RETURN 

3£78REM 

3 £88 REM STR LINE RDJ. IN GPHWTH 
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3£9@ let ki = i:g-g;e::i.-"i:e-T£:i 
3390 for .j=t£+1 to e 

3310 LET G=G-K1 

33£0 LET Yi:j)=Y(.J-l)* ; (l+G) 

3330 let xu^YC-D^ri 

3340 LET GCJ)=G 

3350 NEXT J 

3360 LET G=GU)=G£ 

3370 IF N=9999 THEM ££O0 

3380 GOTO £O£0 

3390REM 

3400 REM FAST ADJ. 

3410 LET K3=0 

3420 FOR K=-T£+l TO E 

3430 LET K3 = KS+tK-TS) 

3440 NEXT K 

3450 LET K1=G-G£ 

;":4h0 FOR J=T£+1 TO E 

3470 LET K£=E--J+1 

3480 LET G=G-K1*(K£/K3) 

3490 LET Y(J)=V(J-1)*(1+G) 

3500 LET XU)=Y(J:i*Ti 

3510 LET GU)=G 

3520 NEXT .J 

3530 LET G=GU)=G£ 

3540 IF N=9999 THEN ££88 

3550 GOTO £0£O 

3560REM 

3570 REM SLOW ADJ. 

3580 LET K3=8 

3590 FOR K=T£+1 TO E 

3600 LET K3 = K3+CK~T£) 

361W NEXT K 

36£0 LET K1=G-G£ 

3630 FOR J=T£ +1 TO E 

3640 LET K£ = J-T2 

3650 LET G=G-K1*(K£.--K3) 

3660 LET YC J) =Y C-J-l ) ffi ( 1+GJ 

3670 LET XU)=Y(J)*D 

3680 LET G(.JJ=G 

3690 NEXT J 

3700 LET G=GU)=G£ 

8710 IF N=9999 THEN ££O0 

37£0 GOTO £0£O 

3730REM 

3740 REM UflLUE OF LONG TERM GROWTH RATE 

3750 LET X(T£)=Xa£) + iXi:T£)^(l+flf7) ) ••'(Ri:4)"fli:7) ) ) 

3760 RETURN 

3770RFM 

3738 REM UfiLUE OF TERMINAL P^E PATIO 

3790 LET KiT2)~KiJZ)+f\iB)^YiJ2) 
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898 


RETURN 






818REM 






888 


REM ANNUAL 


I NTP . 


-•ALLIES 


83@ 


FOR j=i TO 


T8 




84@ 


LETU(.J) 


= O 




850 


FOR I = .. 


! TO ~s~P 




868 


LET UCJ }=U! 


J ) +X f. I 


) --'f 1+RCI) 3 ti I-.J+l) 


870 


NEXT I 






880 


NEXT J 






890 


RETURN 






900REM 






9 1 


BATfi 1 






9£0 


DATA 308? fo. 


85?7>. 


16? .4 


930 


DATA I?, 85? 


30? 197 


~i 


940 


END 







hj/saft" 1 
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EXAMPLES 



Example #1 

In the example shown below the user has answered "YES" to the program's query 
"Do You Want Instructions for Supplying Data?". The user's response to item 
indicates that an intrinsic value is to be calculated. Data has been supplied 
for items 1 thru 5 and item 6, which gives the user a choice between forecast- 
ing long-term growth rates or future price/earnings ratios has been answered 
by his selection of the former. The growth rate is then supplied for item 7 
and the current year is entered in response to item 9; item 8 is not used due 
to the selection of long-term growth rate in item 6. 

Now the user must supply estimates of the growth rate in earnings per share, 
the duration of that rate (yrs.), the dividend payout ratio for those years, 
the discount rate for those years, the type of adjustment to the next growth 
rate, the duration of the adjustment period (yrs.), the dividend payout ra- 
tio for the adjustment period, and the discount rate for the adjustment pe- 
riod. Note: If you wish to shift from one growth rate to another without any 
period in between, then show the duration of the adjustment period as a 0. 

In this example the user has forecast a growth rate in earnings per share of 
25% a year for 10 years (1974-1983) with a dividend payout of 35% and a dis- 
count rate of 20%, followed by a Slow adjustment over a 5 year (1984-1988) 
period using the same dividend payout ratio and discount rate. The user then 
forecast a second set of estimates, predicting a 22% rate of growth for 5 
years (1989-1993) with a dividend payout of 40% and a discount rate of 18%, 
followed once again by a Slow adjustment for a 2 year (1994-1995) period and 
the same dividend payout of 40% and discount rate of 18%. As no further data 
has been supplied by the user the rates beginning in 1996 will be the same 
as those previously entered in items 4, 5, and 7. 

The output of this program summarizes some of the data supplied and prints 
out the intrinsic value of the stock. The user also has the option of hav- 
ing the computer print out a table of values in future years. Finally, the 
computer will offer the user a chance to change the data in any of the items 
thru 9 and/or to modify or substitute data in the growth forecasts. A mod- 
ified set of forecasts appears after the values in future years listing. 
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PUN 1 



Hi) YOU NflNT INSTRUCTIONS FOR SUPPLYING FElTA RYES 
ENTER THE IMF'fiPIIFiTION flS CALL EH EOF' 

do you HFim ro determine: ihtrinsic km ue i:rnsnep "i."i or 

RFQi 1 1 RETJ DURRIIOH OF' Fi SPECIFIC GROWTH F'RTE UTiSNER "E"'i 

m: ,-", '"'Iiireti future ftuftptrientigs ratio crnswfp n 3#i 

ITFTi ?1 



T PPRI F ]" ppp'F IP j- 



I - It !- 



i CPU F ■ Pip-. !"'i- E ! ■ ll'l ir 
. i i! ■!!-! IF PP iUSr i'i! I! P PR i'F PR. R „ i 
IF! !|! FTiYEii.il F'Rl P I 






DO YOU HRH'l I's.j FTiRECRST 

ftp: ce/iftirh iter; rrtio rt h rutur? 



i ORG TEFti 6POHTII Pi IP 



j I E fl <r 



LONG TERM GROWTH RATE' (FlS R DECJTIFli 1 ITE.H 7 ?=RS 

ITEM 3» RUE ROT 10 RT FUTURE? IS NOT HEEDED FOR THIS POSE: 



CURRENT YE.FlR f F. . G . J 369) 



ITEM 9 



'r'OU WILL UUW BR. rPTF U TH F EiPF PfiST Fi i-T'OWTH F'RTE JU F'RRNTL 
THE. DURATION OF THAT RATE IN YFTiRS? TH!'. P T'-'ITiE'HH F'F'YOUT F 



EOF' THESE YEARS? lUSCOUiTr RFiTE FOR Tl !F" YEARS? Ti IF: T 



HIUU3 TT1EN7 FRON TFUS TR THE: NEXT GRiTm- 



I PR' IF fflhSUIE 



1" 



STRAIGHT LINE ADJUSTMENT? "R" FTiP rpsT HI ITi ".••:" FT'ip si Up 
THE DURATION OF 



I HI:, n I J 



it r 1 1 i- 



" fiTl T I--J 



S» ? THE DIP IDE 
PRYOUT RRTIO FOR THE ADJUSTTETIT ERR I OH? FiHTl THE' nTsiPH I! IT 

RRTE FOR THE RDJi ISTiTEHT PERIOD, THIS NIL.! BE REPEATED? Of 

't'OU MAY HREE FORECASTS EEECHIFIG UP TO RRUFT-ITY FTUF' VFRF'R 
ERFiN THE CURRENT YE RET WHET! YOU HIT "E FRF. DIRT FT PIT. THE 
SPECIFIC GROWTH RflT'ES YOU pREF TO? TYPE" Fl i"i F-fi i n Tin Fi 

CARRIAGE RETURN. ........ 
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Example #2 

In this second example the user has called for a calculation of the required 
duration of a forecasted growth rate in order to make the intrinsic value the 
same as the current price, accordingly the user has changed the response to 
item to a 2. In addition the user has changed item 4 to 15% and item 5 to 
50%, all other forecasted data remains the same as that shown in example #1. 

The results of this calculation mean that in order for the intrinsic value 
to equal the current market price, the growth rate predicted in the first 
forecast must continue until 1991 and the long-term growth rate thereafter. 
In the case of the second growth forecast the rate must continue until 1989 
in order to make the intrinsic value equal to the market price. 



fop yifars beginning in thf: yehr primted out bei an? enter to 

EFlROOIGS GROWTH ROTE i OS DEOINOLU ? THE DURATION OF THE 
GROWTH ROTE IN YEARS? THE: DIOIHEND PAYOUT RATIO FOR THESE 
YEARS* THE. DISCOUNT ROTE FOR Tl IESE YEARS' THE TYPE OF rtl'U. ? 
THE DURATION OF THE OB JUSTT1ENT IN YEARS? ONH THE PIUIDEND 
PAYOUT RATIO OND DISCOUNT ROTE FOR THIS AlLlUSTHEHT PERIOD. 



1990 ?0 

1973 00! UES 

PRICE 300 
EARNINGS 0.35 
F'-C RATIO 44,09 

LONG TERN GROWTH RATE ,05 

INTRINSIC UALUE 170,4 

DO YOU HOOT LIST" OF URL.I iES IN FUTURE YEARS "'YES 



652 



VEflR 



l : ■< r' :) 

1976 
1 977 
1978 
1979 
3 980 



1 983 

1 C|C.;C- 



1989 
1999 
1 991 
1998 
1993 
1 994 



• HKinni,,'- 
■■I' 9 9! |f i); 



c:; -;, l •■::■ 



|i: : U .<1 



3 91 . J. 



iRCiMTH 
RATE" 



UOLJJEOFORII' 



per 

i ' i ! 



Tin 



1 



1 1 



1U1R. mil.. 
il-M. UP' VP: 






1 i. j '"! „ J 



;, i 



DO V9I.I OhMT TO CHANGE ANY OF jlT K 19 Ti i C| '~-N-:' 



1 974 

1 OF";: 1 

1999 

, : ''!"!! : V;-i 



C'l.'' ? '"'* ? a 1"'™" ! * a 1 O ? 9 ? 

i o ;= -j ? a „> f i 1 a 1 o ? := ? 



e.i-i. ;-.';-■ 



1 HIT? INC 10 HRLUE 

HO YCH i NFiNT f! LIST OF Ufl! NFC IN FLIT: IR! 



HO YOU WANT TO CHANGE: RHV riF' I THIS Pi T 

WHICH ITEMS ?4»5 

WHAT RPF THE HEH UFlLHFS ?.j c :?.^ 



9 ?YE: 



1 Q ~',1 •"■ -~ic:' H I":, ;:::• 

1 989 ? . 88 ? 5 ? „ 9 ? „ 1 5 ? 
1996 90 

1973 OflLUES 



PEOCE 308 

EARNINGS 6.89 

Fv'E R RT 10 44 a 09 

LONG TERM GROHTH RRTE . O c i 

IHTRIN9IC UFlLUE' 380a 43 



! ? !""". 3 a '.. i ? 
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used and a ra- 

of item 8. As 

will be appli- 



Example #3 

In the third example the user has changed his response to item back to a 
1 (intrinsic value calculation) and has changed his response to item 6 to 
call for a forecast of a price/earnings ratio. Item 7 is not 
tio forecast of 30 is entered in response to the initial use 
the growth forecast extends to 2013 the price/earnings ratio 
ed as of 2013. The print out shows the intrinsic value and the actual fore- 
casted price in 2013, based on the ratio and the earnings growth projections, 
Note: As no succeeding growth rate was used in this particular problem, no 
adjustment to the next rate was specified. 

Next, the user changes the ratio forecast in item 8 to 25, provides a new 
set of growth forecasts and obtains a new print out of the intrinsic value 
and price as of the year 1993. Finally the user changes item to call for 
a calculation of the price/earnings ratio required to make the intrinsic 
value equal to the current market price. 






EARNINGS 
P--"E RAT 1 






INTRINSIC UflL.i IF 1@?7, 

FOR YEAR £013 FTiRFCflSTtli 



:0 ANT) PR IFF. 



DO YOU WANT A FIST OF NfiFNFS IN Fl IT LIRE YEARS 7 

DO YOU WANT TO CHANGE ANY OF" ITEMS O TO 9 ?YE'£ 

WHICH ITEMS YS 

WHAT FIRE THE NEW UFlLUFS ?25 



1.97- 
193- 



„ i O ? J 5 



.J 5 C' ? :J '■ a J ? a l .. ' 
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1473 U!-iLUE."S 

PRICE' 3 9iE' 

EARNINGS 6,85 

I'VE.' RATIO 44.M9 

ir-iTRirisic: uni he; 800„4 

F'OR YEFiP 1993 FORECASTED F\-'i r IS R'5 AND PPICF ] 
DO YOU WANT ! ::; ! L.I ST OF' L'fli UE'S Il-I FUTURE YFORS ?MO 

no you haui ro change: amy or" items o to o ?yfo 

HHICH ITEMS ?0 

NHFlT ORE TI-IE HEW UflLUES ?3 



50.71 



ITEM 6 ?c 
1974 



'?■..' 1 a ' *• it .' n *' °- ! "* 



].. '".'' *J -'J ; 



REQUIRED P---E ROT 10 JO 1.938 TO JUSTIFY -'RICE I 



Example #4 

Example #4 uses the data from the last example and shifts the response to 
item back to a 1 to generate a table of future values utilizing the price/ 
earnings ratio calculated in the previous example. 



DO YOU WANT TO CHANGE OHY OF ITEMS 8 TO 9 

WHICH ITEMS ?@ 

HURT ARE THE HEN HOLLIES ?1 

ITEM 6 ■??.. 
ITEM 8 ?£7.68 
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1974 
1 984 


? .15? 5 ? . 5 


1 973 Ufll 


JJES 


PRICE 
EARNINGS 
P.'E RATIO 


30£ 
6.35 
44.99 



I 1 - j '! .i h - I ■} 



INTRINSIC Uf-iLI IE 30i»96 

FOR: YEAR 1988 FuRECASTEfi Fv'EI IS £'7.68 AMD PR I 
UO YOU AANT H LIST OF 'JRI UES IN FUTURE YEARS ?VE 



CE IS 1954.57 



YEAR 


EARNINGS 


InPONTH 


"AUJEVEARNS. 


INT'R. UAL. 




REP SHARE 


RATE 


PATIO 


BEG. OF YF 


1974 


'"-' a 3 ="' 


. 18 


36.56 


38 1 . 96 


1975 


9 . r'Ti 


. 18 


C« •"' a Cl 


843. 13 


1 976 


11.5 


. 18 


33. 89 




1 977 


1 0! : 3 -.J >' 


. 18 


32. 6 


44£ . '43 


1 973 


16.01 


. 18 


31.85 


508.01 


1979 


18.87 


a X O 


30. 16 


569.31 


1980 


££. 19 


. 18 


£9.138 


645.27 


198 J 


!,"'"' . 99 


a i r* 


88. 13 


730 . 96 


1988 




. 17 


£7.31 


887.61 


1933 


35. 11 


1 ;■:. 

it i- '-.-' 


£6. 68 


936 . 6 


1984 


40 . 37 


a I :J 


36. £4 


1059.54 


1985 


46.43 


. 15 


£5.81 


1 193.28 


1986 


53.39 


. 15 


8 O « 3 1"' 


1354.81 


1987 


6 1 . 4 


. 15 


£4.94 


1531.83 


1 988 


7@ . 6 1 


. 15 


£4.5 


1730.33 



HO YOU WANT TO CHANGE ANY OF' ITEMS TO 9 3FTIB 
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Example #5 

In the previous examples the user had originally responded "YES" to the ini- 
tial question "Do You Want Instructions for Supplying Data?". This example 
demonstrates the rapid input of data when the first question is answered by 
a "NO". 



DO YOU WANT INSTRUCTIONS FOR S! PREYING Tiffin " :; 'U"i 

ENTER 1 1 i- : !'-. ! i pi i! ii ,i i , , ,M i ! i I ■ - , ■-! ■:•■ i . ":cip ,'a ' Hs . 
ITEM 7 COO * " 



1 i-,1 .. 4i 1 n 



1939 
1996 



!r!ir:!j "'•? .. --i-? « 3 ! "-? J? 9 5 ,. 4? « IS 



3 "-'73 UAL 

■'RICE 
1RRNII-IGS 
:, --'E RATIO 



LONG TERM GROWTH RRTI 
INTRINSIC UALUF ;-'■ 

"DO YOU WONT Fl ! 1ST OF" URI UES IN Fl 0'URF YEAR" 

DO YOU WANT T'O CHANGE ANY OF ITEMS TO 9 v? 
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Example #6 

This example shows an alternate form of input utilizing DATA lines for entry. 
All data listed is presently in the program and the user may overlay it with 
his own data. 



READY 

*LI8T 3910-3930 

391U IiRTFi 1 

3930 DflTFi 302? 6. 35? 7? . 16? . 4 

3930 TiflTFi 1? .05? 33? 1973 

FEFiPY 
;«PUII 

DO 300 NANT INSTRUCT I ONS FOP SUPPLY I NL, DflTFi YUH'TFl 

1 '"' i' '-!■ :"' n c!-~< ? 1 k') ? a 4 ? . i t> ? -J? D ? » '-I- ? ■> Ob 

1 939 3 . 33 ? 5 j . 4 ? . 1 3 ? 3 ? £ ? . 4 ? . 1 6 
1996 90 

1973 UALUES 

PRICE 303 
EARNINGS 6.35 
P.-"E RATIO 44.09 

LONG TERN GROWTH RATE . 05 

INTRINSIC UALUE £51.31 

DO YOU NANT A L.I ST OF u AGUES IN FUTURE YEARS ?M0 

DO YOU WANT TO CHANGE ANY OF ITEMS O TO 9 ?N0 

1974 YEJID 
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)0 YOU MMHTT! Lis 



! ::":! I j I' 



IE" III FUTURE YEAR'" ?MO 



DO YOU UIFii IT TO Ci-IFU'iGF. 
I'll 1 1 Chi ITEiiS ?0 

what are roe: iif:w ufil.j. if 

ITEM 6 ?i 
ITEM 7 '7' „05 



r-C"i~i|.jTi i Dprr 



-1ST TO 1991 TC 



DO YOi I MOOT TO CHANGE ANY OF" ITEMS TO 9 ?NO 



1974 
1909 



I. 1 ■ 



i"; i ? i i : ! ? n i n a J,, .j 5 j> n j q 

C...C 



: i „ 1 o 



GROWTH RFiTE 



MOOT LOST' TO 1090 TO JUSTIFY PR I OF. 



DO YOU WANT TO CHANGE AMY OF ITEMS TO 9 ?YES 

WHICH I TEAS ?0 ? S 

MHAT FiRE THE HEM UflLUES ?!»;? 

ITEM TOO 



1974 
1.9S9 



":•' . c'.'d. ? 1 ? » j f o 1 4 ? ' :> ? Y ? n '"i j » 1. Y 

•S 1 Y ? 1 :•;.' 3 a '"j * a 1'"''? 3* "' J 5 u S" * a 1 '""' 

? . 1 Y J 1 J , S 5 . 1 



659 



SWITCH; 

DESCRIPTION. 

Switch computes the effects of a Bond switch. A bond switch is when an in- 
vestor sells a bond and purchases another. The reason an investor may do 
this is because he expects that a change in the yield will make the switch 
financially advantageous. 



USERS 

Persons or companies who invest in Bonds will find this program may save 
considerable money on some of their transactions 



INSTRUCTIONS 

The data may be entered in data statements before program execution or it 

may be entered during execution through program prompting. The program 

should be listed for a complete set of instructions detailing data entry 
and format. 



LIMITATIONS 

Line 4140 contains a ON GOTO statement and line 4560 contains an ABS( ) 

statement. Program lines 1110 to 1160 contain sample data and should be re- 
moved before running the program. The source code for Switch will require 
20K Bytes of memory for storage. It will store and execute in 25K Bytes of 
memory space. 
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S3REH THIS BASIC PROGRAM IS TO CALCULATE AMD ANALYZE THE 

£5REM EFFECT OF A BOND SWITCH 

c'foN'EM 

36EEM TYPE "RUM" TO USE. DATA INPUTS ARE DESCRIBEE IN 

37PEN PRINT STATEMENTS. 

50EEM 

c: j l::: jC , p"M £- ¥£ ';& Iv; ^ 'if. i£ :«?: W: 'ik 'if. if £■; '0. f£; 'if "£; if |£ -'6: "t?| f£; if ^ : o^ : £ 

SO REM 
liOR 
1 SOR 

1 40R 
1 50R 
i 6 OR 
170R 
1 SOR 
1 SOR 
£OOR 

O 1 ( 



Et< 
EM CI 
EM Bl 
EM Pi 



DE 



Ml 5 
TIj 



i -; 
T- 



i£3K 

££OP 
£3 OR 

c!4WR 

£50 
£60 
£70 
£80 
£90 

300 

3 10 
3£0 
330 
340 
350 
360 
37@ 
380 
390 

400 

410 
4£0 
439 



EM 
EM 

EM 
EM 
EM 
EM 

EM T4 
EM D3 
EM Y9 
EM 

PRINT 
I NPUT 

IF A£: 

IE m 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PR I NT 



RIPTION OF UARIABLES IN DATA 

: ANNUAL COUPON ON OLD AND NEW BONDS 

OOK WALUE OLD BOND 

: PRICE OLD AND NEW BONDS 

jM£SM4: MATURITIES OLD AND NEW BONDS IN YEARS AND MOUTHS 

: REDEMPTION PRICE OLD AND NEW BONDS 

: TAX RATE ON THE INTEREST OF OLD AND NEW BONDS 
o£i: TERMINAL DATE IN YEARS AND MONTHS HENCE 
Y4s ESTIMATED YIELD ON OLD AND NEW BONDS AT TERMINAL DATE 
T5s CAPITAL LOSS RATE NOW AND AT TERMINAL DATE 



P£ 
T;: 



T6s CAPITAL GAIN RATE NOW AMD AT TERMINAL DATE 
D4: CAPITAL GAIN RATE AT MATURITY OF OLD AND NEW BOND 
AFTER TRY, REINUESTMENT RATE FOP COUPONS 

,! DO YOU WANT INSTRUCTIONS FOR SUPPLYING DATA"? 

A5 

= "DATA" THEN 10£O 
= "NO" THEN 910 

"ENTER THE FOLLOWING ITEMS OF DATA" 

"ITEM 1 " HOB ( i£3 5 "BOOK UALUE OF OLD BOND" j TAB (453 ? 

Bl 

"ITEM £"? TABr 1?) § "PRICE OF OLD BOND" 5 TAB (453 5 

Pi 

"ITEM 3" 5 TAB CIS) j "COUPON ON OLD BOND" % TAB (45} 5 

ci 

"ITEMS 4 S: 5";TRB(12); "MATURITY OLD BOND IN YRSj MONTHS" 5 TAB (453 
M1jM3 
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440 PRINT "ITEM 6" TTAB C 1£) ? "PROCEEDS ON REDEMPTION OLD BOND"? TAB (45) 5 
45@ INPUT Rl 

469 PRINT 

470 PRINT "ITEM 7" 5 TAB ( 1£) 5 "TAX RATE ON OLD BOND INTEREST PMTS" J TAB (45) J 
480 INPUT Tl 

4 c .'Pi PPINT 

500 PRINT "ITEM 8" 5 TAB ( IS) 5 "PRICE OF MEM BOND" 5 TAB (45) 5 

510 INPUT P£ 

5£0 PRINT 

5 30 PRINT "ITEM 9" J TAB ( i£) 5 "COUPON ON NEW BOND" J TAB (45) ? 

540 INPUT C£ 

PiFiH PRINT 

560 PRINT "ITEMS 19? 1 1 "?TAB( 1£) S "MATURITY NEW BOND- YRS< MONTHS" j TAB (45) J 

570 INPUT M£?M4 

580 PRINT 

590 PRINT "ITEM i£" 5 TAB ( 1£) 5 "PROCEEDS ON REDEMPTION NEW BOND" j TAB (45) 5 

600 INPUT R£ 

610 PRINT 

680 PRINT "ITEM 13" 5 TAB ( 1£) 5 "TAX RATE ON MEW BOND INTEREST PMTS" ? TAB r 45) j 

639 INPUT T£ 

f, 40 PRINT 

650 PRINT "ITEMS 14? 15" j TAB( 1£) 5 "YRSj MONTHS TO TERMINAL DATE" j TflE (45) 5 

66© INPUT S1?S£ 

670 PRINT 

680 PRINT "ITEM 16" 5 TAB ( IS) ; "PREDICT YIELD OLD BOND TERM. DATE" ? TAB (45) ? 

690 INPUT Y3 

700 PRINT 

710 PRINT "ITEM 17" 5 TAB C 1£) J "PREDICT YIELD NEW BOND TERM. DATE" j TAB < 45) ? 

7£0 INPUT Y4 

730 PRINT 

74W PRINT "ITEMS 18? 19" ? TAB ( IS) 5 "CAP LOSS? GAIN RATES NOW"? TAB f. 45) j 

750 INPUT T3»T4 

760 PRINT 

7 70 PR I NT " I TENS £9 ? £ 1 " ? TAB ( 1 £ ) \ " CAP LOSS j G A I N PATES TERM . DATE " S TAB ( 45 ) ? 

788 INPUT T5 ? T6 

790 PRINT 

880 PRINT "ITEM ££" S TAB ( 1£) ? "CAP GAIN RATE AT MATURITY OLD BOND" '■ TAB (45 1 ? 

810 INPUT D3 

8 £8 PRINT 

838 PRINT "ITEM £3" 5 TAB ( IS) \ "CAP GAIN RATE AT MATURITY NEW BOND" j TAB (45) 5 

848 INPUT D4 

858 PRINT 

868 PRINT "ITEM £4" 5 TAB ( IS) % "AFTER TAX REINUEST RATE COUPONS" 5 TAB (45) 5 

878 INPUT Y9 

888 PRINT 

898 GO TO 1178 

988 PRINT 

918 PRINT "ENTER DATA ITEMS 1 THROUGH 13" 

9£8 PRINT 

938 I NPUT B 1 » P 1 » C 1 » M 1 » M3 ? R 1 , T 1 « P£? C£ ? M£< M4 ? RE, T£ 

948 PRINT 
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950 PRINT "ENTER DflTfl ITEMS 14 THROUGH £4" 

968 PRINT 

y i-"'y INPUT S i ? 92? Y3? Y4 ? T3? T4« 7~>i T&' D2< 04* Y'3 

980 PRINT 

990 GO TO 1170 

1 00OREM 

1O10REM IiflTfl ON OLH BOMB 

10£8 RERD EljPIjCl»MljM:q!,P1,Ti 

1 03OREN 

104OREN DflTfl ON NEW BOMB 

1 05a READ PP. j OP ? MP ■= M4 , p£, Tp 

1 06OREM 

1 070 READ S 1 ? S£ 5 Y3 ? Y4 

1080 READ T3»T4jT5jT6 

1090 READ D3jD4 

1 1 80 KERB Y9 

1 1 1 8 DATA 96 . 375 ? 9 1 ? £ . 75 » £ ? 5 3 1 80 ? . 4S 

U£0 DATA 84? 5. 1 £5? 3£? 9? 108? ,48 

1 1 30 DATA £ ? 8 j „ 85 5 . 845 

1.148 DATA .£'5 j .£5? ,£5? .£5 

1158 DATA .£5? .£5 

1 1 68 DATA . 03 

1170REM SEN I -ANNUAL COUPON 

1 188 DIM A (58) 5 LC58 ? 58J 

1198 LET CI = Ci.'£ 

1£80 LET C£ = C£.--£ 

1£10 KEm 

1££0 REn YIELD ON OLD BOND 

1E38 REn 

1P35REM SEMI-ANNUAL COUPONS TO MATURITY OLD BUND 

1P40 LET M=M1*£+M3.'6 

I £5@ LET N7 = 8 

1P68 LET MS = I NT CM) -1 

1865REM FRACTION OF PERIOD UNTIL NE>T f:OI IRON 

1£78 LET M9=M-INT(M) 

1£88 LET C = CI 

1E85REM MARKET UALUE OLD BOND 

1£98 LET Ui=Pl+Cia!:i-rt=n 

1P95REM MARKET UALUE AT MATURITY 

1388 LET U£=R1+C1 

1318 GOSUB 4538 

1315REM YIELD TO MATURITY 

13£8 LET Ql=£HrEXP(Y)--l) 

1338 REn 

1340 REn AFTER TAX YIELD ON OLD BOND 

1358 REn 

1355REM IS BOND SELLING AT A PK'EMTliM 

1368 IF BK188 THEN 1396 

1365REM PER PERIOD AMORTIZATION 

1 37ti LET D 1 = C B 1 - 1 00 ) ,-' I NT C M+ 1 ) 

1388 GO TO 1400 
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1390 LET D1=0 

1395REM AFTER TAX AND AMORTIZATION COUPON 

1490 LET C3=Cl-(Ci-Di)*Tl 

1405REM BOOK UAL.LE AT MATURITY 

1 4 1 LET B9=B 1 -D 1 * ( I NT ( M+ 1 ) ) 

14I5REM TAX SFlUINGS ON CAPITAL LOSS 

14S0 LET G5=D3*rRl-B9} 

1430 LET C=C3 

1435REM AFTER TAX UAUJE AT PRESENT 

1 4 40 LET U 1 =P 1 +C 1 ffi i 1 -M9 ) * 1 1 -T 1 ) 
1445REM AFTER TAX UALUE AT MATURITY 
1450 LET U£=R1~G5+C3 

1469 GOSUB 4530 

1465REM AFTER TAX YIELD TO MATURITY 

1 470 LET Q3=£* ( EXP ( Y 1 - 1 ) 
1480 REM 

1490 REM AFTER TAX YIELD ON REPURCHASED OLD BOND 

15O0 REM 

1505REM IS BOND SELLING AT A PREMIUM 

1510 IF PK1O0 THEN 1540 

1515REM PER PERIOD AMORTIZATION 

1530 LET D5=(P1-100J^INT!M+1 ) 

1530 GO TO 1550 

1540 LET D5=0 

1545REM AFTER TAX AND AMORTIZATION COUPON 

1550 LET C5=Cl-i:Cl~D5r*Tl 

1555REM BOOK UALUE AT MATURITY 

1560 LET B9=Pi-D5*UIMTiM+l):i 

1565REM TAX SAUINGS ON CAPITAL LuSS 

1570 LET G7=D3*(R1-B9) 

1575REM AFTER TAX AND AMORTIZATION UOUPOM 

1 5RPi LET C-C5 

1585REM AFTER TAX MARKET UALUE PRESENT 

1 5 90 LE T U 1 =P 1 +C 1 s ( 1 ~M9 } * ( I -Tl ) 
1595REM AFTER TAX UALUE AT MATURITY 
1600 LET U£=RI-G7+C5 

1619 GOSUB 4530 

1615REM AFTER TAX YIELD TO MATURITY 

1630 LET Q5=£*(EXPm-i) 

1 A"~!£i PFM 

1640 REM YIELD ON NEW BOND 

1650 REM 

1655REM SEMI-ANNUAL COUPONS TO MATURITY NEW BOND 

1660 LET M=M£^£+M4,-6. 

1670 LET M7 = O 

1675REM SEMI-ANNUAL. COUPONS TO MATURITY LESS FINAL COUPON 

1680 LET M8=INTi:M)-l 

1AR5REM FRACTION OF PERIOD TO NEXT COUPON 

1690 LET M9=M-INT(M) 

1695REM SEMI-ANNUAL COUPON 

1700 LET C=C£ 
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1785EEM_ PRESENT MARKET UfiLUE 

1716 LET Ui=P£+C£'$f i-MSO 

1715REM MARKET UAL.UE RT MATURITY 

17£@ LET U£=R£+C£ 

1738 GOSUE 453Q 

1735REM YIELD TO MATURITY FEW BOND 

1740 LET Q£=£ffi(EXP(T)-l) 

1 750 REm 

1760 REfi meter tax yield oh hew bond 

1770 REpi 

1775REM IS HEW BOND SELLING AT fl PREMIUM 

1730 IE P£<100 THEN 181© 

17S5REM AMORTIZATION OF PREMIUM PER PEP I OB 

1790 LET D£=(P£-100)xTHTiM+n 



1810 LET D£ = 

1315REM AFTER TAX AND AMORTIZATION COUPON 

18£0 LET C4=C£-~(C£-D£)*T£ 

18E5REM BOOK UfiLUE AT MATURITY 

1838 LET E9=P£-D£3K(INTfM+i)) 

1835REM TAX SflUINGS ON CAPITAL LOSS 

1848 LET G6=B4*(R£-B9) 

1845REM AFTER TAX AND AMORTIZATION COUPON 

1858 LET C=C4 

1855REM AFTER TAX MARKET UfiLUE PRESENT 

1 860 LET U 1 =P£+C£* ( 1 -M9 ) * ( i -T£ 3 

1865REM AFTER TAX MARKET UfiLUE AT MATURITY 

1878 LET U£=E£-G6+IJ4 

1 888 GOSUB 4538 

1885REM AFTER TAX YIELD TO MATURITY NEW BOND 

1898 LET Q4=£*MEXPm~ii 

1980 PRINT "TABLE OF YIELDS AMD TERMINAL.. UfiLUES AT TERM. DATE TVPF: " 

1910 PRINT " 8-FOR MO TABLES" 

19£0 PRINT !i i-FOP SENSITIUITY OF YIELD AND TERMINAL UALUES TO TERM, 

1930 PRINT " 2-FOR SENSITIUITY TO YIELD SPREAD' 1 

1940 PRINT " 3-FOR SENSITIUITY TO YIELDS" 

1958 PRINT " 4-FOR YIELDS fiND TERMINAL UALUES AT YOUR TERM. DATE" 

I960 PRINT 

1978 PRINT "WHICH TABLE DO YOU WANT"? 

1988 INPUT Z 

1998 PRINT 

£888 LET K£=Y3 

£818 LET K1=Y4 

£8£8 LET Zl=@ 

£838 ON Z+l GO TO 5 198 5 £188? £148? ££78? £398 

£888 REM KjZI SERUE FiS COUNTERS TO SET UP SENSITIUITY MfiTRICIES 

£898 GO TO £398 

3895REM LOOP USED TO GENERATE TIME SENSITIUITIES 

£188 F8R S=l TO Sl«£+S£.-"6+£ 

£118 LET Z1=Z1+1 

£1£8 LET RCZi)=S-'£ 
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£lyy uu iu ,=:4yo 

£140 LET Y6=Y4~Y3 

PI ^8 PRINT "DESIGNATE RANGE OF SPREAD (HEW BOND Y I ELD-OLD BOND YIELD AT" 

PI 6@ PRINT "TERMINAL DATE) INPUT HIGH SPREAD? LON SPREAD AND INCREMENT" 

£170 PRINT "IN BASIS POINTS. FOR EXAMPLE? -188? 188? 35. " 
£180 INPUT Z4?Z5?Z6 
£190 LET Z4=Z4-'' 13888 
££0O LET Zz<=£'ds 10000 
££10 LET Z6=Z6.'" 18888 



'££0 FOR Kl = 



'-'-l-"^:i 



4 TO 



J TJ+iD 



: ;TEF Z6 



££30 LET Zi=Zl+l 
££40 LET A(Z1) = CKL 

"T 



; "I S! 1 flflRFi 



c'£69 GO i'O £390 

£■071:1 ppt NT "DESIGNATE RANGE OF OLD BOND YIELDS AT TERMINAL DATE. 

££80 PRINT "INPUT HIGH YIELD? LON YIELD AND INCREMENT DESIRED?"? 

££85 PRINT " FOR EXAMPLE:" 

££98 PRINT ".86? .85? .0@£. ,! 

£388 INPUT Z4?Z5?Z6 

£'318 LET Y6=Y4-Y3 

£3£8REM 

£338 F8R K£=Z5 TO Z4 STEP Z6 

£848 LET K1=K£+Y6 

£358 LET Z1=Z1+1 

£368 LET ACZ1)=K£ 

£378 GO TO £398 

£388 GO TO £488 

£385REM TIME TO SALE DATE 

£890 LET S=Sl«£+S£/6 

E395REM TIME TO MATURITY IN HALF YEARS 

£488 LET M=Mlffi£+M3/6 

E485REM ACCRUED COUPON AT PRESENT 

£418 LET AI=Cls(l-iM-INT(M})) 

£4£8 LET N4=INTCM-S) 

£4£5REM TIME FR8M PROPOSED SALE DATE TO THE NEXT COUPON 

£438 LET M5=M-S~N4 

8435REM SEMI-ANNUAL COUPON 

£448 LET C=C1 

£445REM SEMI-ANNUAL YIELD OLD BOND AT SALE DATE 

£458 LET I=K£--"£ 

£455REM REDEMPTION PRICE OLD BOND 

£468 LET A=R1 

£478 GOSUB 4368 

£488 LET A3=A9 

£498 LET P3 = P 

£495REN NUMBER 8F PERIODS THAT AMORTIZATION WAS TAKEN 

£588 LET C7=INTM)-INT(M-S) 

S585REM BOOK UALUE OLD BOND AT SALE DATE 

£518 LET B3=B1-D1*C7 

£5£8 LiO TO £578 

£538 PRINT 
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£548 PRINT "PRICE OF OLD BOND AT SALE BATE"?P3 

£558 PRINT "ACCRUED INTEREST 

£568 PRINT "BOOK Ufl! UE AT SALE DATE 



11 



ci O i' k.. 1 



?EM 



c:t.S8 REM DATA ON REPURCHASED OLD BOND AT SALE DATE 

£590 REN 

£595REM SEN I -ANNUAL PERIODS TO MATURITY OLD BOND 

£608 LET N=Ni ffi £+N3.''6 

£685REN ACCRUED COUPON AT PRESENT 

£610 LET Hl^CWi-U'l-INTCM) ) ) 

E615REM NUMBER OF COUPONS AFTER SALE 

£6£8 LET N4=INTiM-S) 

£6£5REM TIME FROM PROPOSED SALE DATE TO NEXT COUPON 

£638 LET N5=M-S-N4 

3635REM SEMI-ANNUAL COUPON 

£648 LET C-Cl 

£645REM ESTIMATED C ;EM I -ANNUAL YIELD OLD BOND AT SOL E PRTF 

£658 LET I=K£/£ 

£655REM REDEMPTION PRICE OLD BOND 

£668 LET A=R1 

£670 GOSUB 4368 

"d.^'dki LE i Hy = H'"' 

£698 LET P3=P 

P695REM NUMBER OF PERIODS THAT AMORTIZATION MAS TAKEN 

£788 LET C7=INT CM) -INT (M-S) 

E785REM BOOK UHLUE AT PROPOSED SALE DATE 

3786KEM 

£718 LET B5=P1-D5*C7 

£7£8 GO TO £778 

£738 PRINT 

£748 PR I NT "PR ICE OF REPURCHASED OLD BOND AT SALE BATE"jP3 

£758 PRINT" ACCRUED INTEREST " , A3 

£768 PR I NT "BOOK URLUE AT SALE DATE " ? B5 

£778 REM 

£788 REM DATA ON NEW BOND AT SALE DATE 

£790 REM 

8795REM SEMI-ANNUAL PERIODS TO MATURITY 

£800 LET M=M£«£+M4--6 

E805REM ACCRUED COUPON AT PRESENT 

£810 LET A£=C£* ( 1 - ( M~ I NT f M 3 ) ) 

2S15REM NUMBER OF COUPONS AFTER SALE TO MATURITY 

£S£0 LET N4=INT(M-S3 

£8?5REM TIME FROM PROPOSED SALE DATE TO NEXT COUPON 

£838 LET N5=M-S~M4 

3S35REM SEMI-ANNUAL COUPON 

£848 LET C=C£ 

8845REM ESTIMATED SEMI-ANNUAL YIELD AT C :ALE DATE 

£858 LET I=K1^£ 

E855REM REDEMPTION PRICE NEW BOND 

£868 LET R=R£ 

£8f'0 GOSUB 4368 
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£'8y0 LET P4 = P 

£895REM NUMBER OF PERIODS THAT AMORTIZATION WAS TAKEN 

£9@8 LET C:8=INT(rU-IMT(M-S) 

£985REM EOOK. UALUE OF NEW BOND AT SALE BATE 

8918 LET B4=P£~D£-C8 

£988 GO TO £98u 

£988 PRINT 

P94Q PRINT "PRICE OF NEW BOND AT SALE DATE"?P4 

£958 PRINT "ACCRUED INTEREST " j Fi4 

£968 PRINT "BOOK. UALUE AT SALE DATE " ? B4 

P970 pRiriT 

£988 REn 

£990 REn CAP GAIN TAX AT SALE OF OLD BOND NOW 

3800 REn 

3805REM PRICE OLD BOND NOW 

3810 LET P9=Pi 

3815REM BOOK UALUE OLD BOND NOW 

3835REM CAPITAL LOSS RATE NOW 

3838 LET T8=T3 

3835REM CAPITAL GAIN RATE NOW 

3848 LET T9=T4 

3858 GOSUB 4458 

3855REM CAPITAL GAIN OR LOSS NOW IVT 

8868 LET G1=G 

3878 REn 

3880 REn CAP GAIN SALE AT SALE DATE OF OLD BOND 

3090 REn 

3895REM_ PRICE OLD BOND AT SALE DATE 

3188 LET P9=P3 

3185REN BOOK UALUE OLD BOND AT SALE DATE 

3118 LET B9=B3 

3115REM CAPITAL LOSS RATE AT SALE DATE 

31 £8 LET T8=T5 

31S5REM CAPITAL GAIN RATE AT SALE DATE 

3138 LET T9=T6 

3148 GO SUB 4458 

3145REM CAPITAL GAIN 8R LOSS AT SALE DATE fVT 

3158 LET G3=G 

3168 REN 

3170 REM CAPITAL GAIN AT SALE DATE GF REPURCHASED OLD BOND 

8188 REM 

3185REM PRICE OLD BOND AT SALE DATE 

3198 LET P9=P3 

3195REM BOOK UALUE OLD BOND AT SALE DATE 

3£88 LET B9=B5 

3S05REM CAPITAL LOSS PATE AT SALE BATE 

3£10 LET T8=T5 

3E15REM CAPITAL GAIN RATE AT SALE DATE 

3 ££8 LET T9=T6 
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3 £3@ GOSUE 445S 

3E35REM CAPITAL GAIN OR LOSS AT SALE HATE fVT 

3 £40 LET G9=G 

3 £50 REN 

3£60 REn CAP GAIN SALE AT SALE DATE OF NEW BOND 

3 £70 REn 

3£75REM PRICE OF NEW BOND AT SALE HATE 

3 £80 LET P9=P4 

3385REM BOOK UflLUE OF NEW BOND AT SALE BATE 

3 £90 LET B9=B4 

3E95REM CAPITAL LOSS TAX PATE AT SALE DATE 

3300 LET T8=T5 

3305REM CAPITAL. GAIN TAX PATE AT SALE DATE 

331Q LET T9=T6 

33£0 GOSUB 4450 

3335REM CAPITAL. GAIN OR LOSS AT SALE DATE— AFTER TAX 

3330 LET G4=G 

3340 REn 

3350 REn SALE OF OLD BOND NOW AND PURCHASE OF NEW 

3368 REn 

3365REM AFTER TAX PROCEEDS SALE OF OLD BOND NOW 

3378 LET H 1 =P 1 -G 1 + A 1 * f 1 -T 1 ) 

3375EEM A--T PROCEEDS SALE OF OLD BOND AT SALE DATE 

33S8 LET H3=P3-G3+A3 S C1-T1) 

3399 LET H5=P3™G9+A3 s; f 1— Tl ) 

3395REM A--T PROCEEDS SALE OF PURCHASED NEW BOND 

3488 LET H4=P4-G4+A43*fl-T£) 

3410 REN 

34£W REN AFTER TAX YIELD FRON KEEPING OLD BOND 

3430 REN 

3435REM TIME TO MATURITY OLD BOND 

3440 LET M=MiS£+M3.--6 

3450 LET K=0 

3455REM FRACTION OF PERIOD FROM SALE DATE TO NEXT COUPON 

34b© LET M7=M~S-INTCM-S) 

3465REM COUPONS RECEIUED FROM NOW TO SALE DATE OLD BOND 

3470 LET M8=C7-1 

3475REM FRACTION OF PERIOD FROM NOW TO NEXT COUPON 

3480 LET M9=M™INTCM:i 

3485REM AFTER TAX COUPON OLD BOND 

3490 LET C=C3 

3495REM " MARKET UflLUE OLD BOND NOW 

35O0 LET Ui=Pl+fli®(l-Tl) 

3505REM H--T PROCEEDS FROM SALE OF OLD BOND AT SALE DATE 

3510 LET U£=H3 

35£8 GOSUB 4530 

35£5REM ANNUAL YIELD TO SALE DATE OLD BOND 

3538 LET Y5=£* (EXP (Y) -1) 

3548 LET L C Z 1 ? K ) = ( ( I NT f Y5 S 1 9u@y+ . 5 } ) -'" 1 88 ) 

3550 LET W3=0 

3560 FOR 1= 1 TO M8 
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3565REM COUPONS COMPOUNDING AT H^T APPOPTUNITY RATE 
3578 LET W3= C W3+C ) Si ( 1 +Y9/"8 ) 



"t C" t 



30 NEX! 



t 



3587REM INTEREST PROM SALE DATE TO NEXT COUPON 

3590 LET W3=CN3~f-CJ ; * : Ci+Y9^£Jt(l"M7) 

3595REM TERMINAL URLUE OLD BOND AT SALE DATE 

3608 LET H9=H3+H3 

361S LET K=K+3 

3688 LET L(Z1?K)=H9 

3638 GO SUB 4380 

3640 REN 

3650 REM AETER TAX YIELD PROM TAX SWITCH 

366S REpi 

3665REM NUMBER OE OLD BONDS REPURCHASED 

3678 LET Ni=Hl .•- Ipl+Hl* f I-T1J) 

3675REM TERMINAL UALUE REPURCHASED OLD BONDS 

3680 LET H5=H5*Tii 

36S5REM TIME TO MATURITY OLD BOND 



3690 LET M=M13«£+M3^6 

3695REM EPRCTION OE PERIOD PROM SALE TO NEXT COUPON 

3780 LET M7=M-S-INTCM-S:i 

3705REM NUMBER OE COUPONS RECEIUED 

3718 LET M8=C7-1 

3715REM FRACTION OE PERIOD FROM NOW TO NEXT COUPON 

3788 LET M9=M-INTlM) 

3785REM A.-T AND Nl ADJUSTMENT COUPON 

5730 LET C=N1*C5 

3735REM MARKET UALUE OF OLD BOND NOW 

3748 LET UI=Pl+fllH(l-Tl) 

3745REM TERMINAL. PROCEEDS FROM SALE OF Ml OLD BONDS 

3758 LET U£=H5 

3760 GOSUB 4538 

3765REM ANNUAL YIELD TO SALE DATE FROM T-S 

3778 LET Y7=£* CEXP CY) -1 3 

3788 LET K=K-£ 

3790 LEi LCZ1 ?K3=( CINTfY7^18880+.5J 1^108) 

38£i8 LET M5=8 

3818 FOR 1= i TO MS 

38I5REM COUPONS COMPOUNDING AT A.--T OPPURTUNITY RATE 

3888 LET W5= ( W5+C 3 '*= ( 1 + ( Y9--8 3 ) 

3330 NEXT I 

3835 IF M8=-i THEN 3850 

3837REM INTEREST FROM SALE DATE TO NEXT COUPON 

3848 LET W5=(W5+C) s ( 1+ CY9.'£) J t ( 1-M73 

3845REM TERMINAL UALUE REPURCHASED OLD BONDS AT SALE DATE 

3858 LET H7=H5+W5 

3868 LET K=K+3 

3878 LET L(ZliK)=H7 
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3889 GO SUE 4300 

389@ REM 

3900 REm AFTER TAX YIELD FROM SWITCH 

3910 REn 

3915REM NUMBER OF MEW BONDS PURCHASED 

39£0 LET N£=Hl.''(P£+A£*a~"T£3 3 

3930 LET H4=H4«N£ 

3935REM TIME TO MATURITY NEW BONDS 

3940 LET M=M£ S £+M4--'S 

3945REM FRACTION OF PERIOD FROM SALE TO NEXT COUPON 

3950 LET M7=M-S-INTCM-S) 

3955REM COUPOHS RFCEIUED FROM NOW TO SALE DATE NEW BOND 

3968 LET M8=C8-i 

3965REM FRACTION OF PERIOD TO NEXT COUPON NEW BOND 

3970 LET M9=M-INTi;m:i 

3975REM AFTER TAX COUPON FOR N£ HEW BONDS 

3980 LET C=N£ H C4 

3 9 90 LET U i =P i + A 1 '#• ( 1 -T 1 3 

3995REM TERMINAL PROCEEDS FROM SALE OF N£ NEW BONDS 

40O0 LET U£=H4 

4010 GOSUB 4530 

4315REM YIELD FROM SWITCH INTO N£ NEW BONDS 

4O£0 LET Y8=£ ffi ( EXP ( Y 3 - 1 3 

4O30 LET K=K-£ 

4040 LET L (Zl ? K) = m INI C Y8-1000O+.53 ) ■•■"100 J 

4050 LET W4=0 

4068 FOR 1= 1 TO MS 

4065REM COMPOUNDING COUPONS AT A.-'T OPPORTUNITY RATE 

4O70 LET W4= C W4+C J s ( 1 + f Y9---"£) 3 

40SO NEXT I 

4085 IF M8=-l THEN 4100 

4087REM INTEREST FROM SALE DATE TO NEXT COUPON 

4 090 LET W4= t W4+C J s i 1 + C Y9--"'£ 3 3 1 i 1 -M7 3 

4095REM TERMINAL UALUE PURCHASED NEW BONDS AT SALE DATE 

4100 LET H6=W4+H4 

4110 LET K=K+3 

41 £8 LET L(Z1»K)=H6 

4138 GOSUB 4388 

4140 ON Z+l GO TO 47£0? 4£70? 4£30? 4188? 47£0 

4180 NEXT K£ 

4190 LET K£=Y3 

4£0O LET Z8=Z1 

4£18 GO TO 4£98 

4££8 LET A ( Z 1 3 =fl C Z 1 3 ® 1 8888 

4£38 NEXT Kl 

4 £48 LET K1=Y4 

4£58 LET Z8=Z1 

4268 GO TO 4£9£i 

4 £78 NEXT S 

4£88 LET Z8=Z1 

4£9@ GO TO 4878 
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4 309 REM POUNDING ROUTINE 

4310 LET LtZijK)=IMTf.LtZljlO 5K ieei+.5)/ - 100 

43£0 RETURN 

4339 REn 

4340 REn BOND PRICE SUBROUTINE 
4350 REm 

4355REM PRESENT URLUE OP COUPONS TO MATURITY 

4 360 LET U 1 =C» L 1 - i 1 + 1 ) T t ~M4 ) ) ■•■" I 

4365REM PRESENT URLUE OF MARKET PRICE OF BONDS 

4370 LET U£=fV fl + 1 ) fN4 

4375REM RATE OF FRACTION OF PERIOD TO NEXT COUPON 

4380 LET Z9=a + i)tMF.-i 

4385REM 

4386REM PRICE OF BOND IN THE FUTURE 

4390 LET P= C (Ui+UE'+C J .■•- C 1+Z9) } -C& i. i~N5) 

4395REM ACCRUED INTEREST 

440O LET A9=C*Ki-N5i 

4410 RETURN 

4480 REn 

4430 REn CAP GAIN OR LOSS TAX CALCULATION 

4440 REn 

4445REM IS MARKET PPICF GREATER THAN BOOK UALUE 

4450 IF P9>B9 THEN 4480 

4455REM CAPITAL LOSS TAX SAUINGS 

4460 LET G=T8*(P9~B9) 

4478 GO TO 4490 

4475REM CAPITAL GRIN TAX 

4488 LET G=T9 S CP9-B9) 

4490REM 

4 ■FjC¥ r i REn 

4518REH YIELD CALCULATION USING FISCHER'S ALGORITHM 

4588 REn 

4530 LET Y = .8801 

4540 GOSUB 4618 

4558 LET D=P-iUl+U£) 

4560 IF ABSCD^'USX. 08008085 THEN 4590 

4565REM MEW TRIAL INTEREST RATE 

4570 LET Y=Y-B.--U3 

4588 GO TO 4549 

4598 RETURN 

4608 REn 

4610 REn YIELD SUBROUTINE 

4688 REn 

4685REM PROCEEDS FROM SALE OF OLD BOND NOW 

4638 LET P=Ui 

4648 LET U1=U3=8 

4645REM PRESENT UALUE OF PROCEEDS FROM FUTURE SALE 

4658 LET U£=U£^EXP f YJ T (-M9-M8+M7-1) 

4668 F8R J=8 TO MS 

4665REM PRESENT URLUE 8F INCOME STREAM 

4678 LET U 1 =U 1 +C& f EXP i Y ) ) T ( -J-M9 ) 
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4675REM F I SCHER ? S IWRfiT I OH 

4688 LET US^.-'S+C® £ J+M9 ) * : EXP C Y ) t £ - J-My ) 

•4699 NEXT J 

4790 LET U3=U3+U£**£M8+1+M9-M7) 

4710 RETURN 

4720 PRINT 

4730 PRINT 

4740 PRINT"YIELD TO SALE DATE H--T IF OLD BOND KEPT"? 

4750 PRINT ( (INT ( 180880 ffi Y5+. 000005) ) --'100000) '*100? 

4755 PRINT TfiB £58) 5 "PERCENT" 

4760 PRINT"YIELD TO SALE DATE fi.-T ON TAX SWITCH"? 

4770 PR I NT ( C I NT ( 1 O0000*Y7+ . 000005 ) ) --' 1 60000 3 s 1 00 

4780 PR I NT "YIELD TO SALE DATE A.-T ON SWITCH TO NEW BD'S 

4790 PRINT C ( INT £ 180800 H Y8+. 8O00y53 ) ■••-'ISOOOO) * : 180 

4800 PRINT 

4810 PRINT 

48S0 PRINT "TERMINAL UALUE IF OLD BOND KEPT" ? £ f INT CH9*n00+. 5) ) ,--1883 

4838 PRINT "TERMINAL UALUE OF TAX SWITCH " ? C £ INT (H7*l 0O-.53 ) •- 180) 

4848 PRINT "TERMINAL UALUE OF SWITCH TO NEW BOND"? f £ INT £H6^180+. 5) ) /lOO) 

4858 PRINT 

4868 GO TO 5188 

4878REM 

4888 PRINT 

4899 ON Z+l GO TO 4918? 4960? 500L1* 4910? 4918 

4910 LET D£="YIELB" 

4980 LET B1£="£0LD BOND)" 

4930 PRINT "SENSITIUITY OF YIELD AND TERM. UALUE TO "5 US?" AT TERM." 

4948 PRINT "SPREAD HELD CONSTANT." 

4958 GO TO 504U 

4968 LET DS="TERM. DATE" 

4970 LET D1£="CIN YEARS)" 

4988 PRINT "SENSITIUITY OF YIELD AND TERM. UALUE TO "iBti" AT TERM." 

4998 GO TO 584U 

5000 LET DS=" SPREAD" 

5818 LET Di£="fIN BASIS PTS. 3 " 

5888 PRINT "SENSITIUITY OF YIELD AND TERMINAL UALUE TO "?D$?" AT TERM." 

5030 PRINT "OLD BOND YIELD HELD CONSTANT." 

5O40 PRINT 

5050 PRINT D^s TAB (133? "YIELD TO TERMINAL DATE" ; TAB £43) 5 "TERMINAL UALUE" 

5860 PRINT Dl$ 

5070 PRINT 

5088 PRINT TAB(10)?"OLD BOND" ?TAB(803 5 "TAX SW. " S TAB (30) 5 "NEW BOND"? 

5090 PRINT TfiB (46) S "OLD BOND" ? TAB £50) ? "TAX SW. " ? TAB £60) ? "NEW BOND" 

5100 FOR 1=1 TO Z8 

5118 PRINT fid) i 

5180 FOR J=0 TO 5 

5 1 38 PR I NT TAB £ 1 6* J+ 1 ) ? L C I ? J ) S 

5140 NEXT J 

5158 PRINT 

5160 NEXT I 

5170 PRINT 
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5198 PkIMT "BO YOU WANT fi SUMMARY OF BOND DATA "I 

5 £88 INPUT Di- 
Sc' 10 IF D£="NO" THEN 56£8 

5££0 PRINT 

5238 PRINT 

5 £48 PRINT "SUMMARY OF DATA" 

5258 PRINT 

5£68 PRINT TAB (£6) J "YIELDS TO MATURITY" 

5£78 PRINT 

5£88 PRINT "YIELD ON OLD BOND BEFORE TAX ", 

5£98 PRINT U INT (Q1^18888+„5) ) ^188) 

5388 PRINT "YIELD ON OLD BOND AFTER TAX ", 

5318 PRINT ( C INT lQ3*18888+. 5) 3^1883 

53£8 PRINT "YIELD ON REPURCHASED OLD BOND AFTER TAX"? 

5 338 PR I NT ( ( I NT i Q5& 1 8888+ .5)3 --" 1 88 3 

5348 PRINT "YIELD ON NEW BOND BEFORE TAX 

5 358 PR I NT C CI" NT C Q£- 1 8888+ . 5 3 3 s 1 88 3 

5368 PRINT "YIELD ON NEW BOND AFTER TAX " ? 

5378 PRINT C C INT 034*1 8888+ ,,53 3. ---'188 3 

5388 PRINT 

5398 PRINT "OLD BOND" 

5400 PRINT " " 

5410 PRINT 

54£8 PRINT "PRESENT PRICE" j PI ? "COUPON" Sp*C.l 

5438 PRINT "REDEMPTION RT'^Rl, "BOOK UALHF"?B1 

5448 PRINT "MATURITY" j Ml 5 "YEARS" , M3? " MONTHS" 

5458 PRINT "TAX RATES" ? Ti ? "ON INC"?T4?"0N f:AP GNS" 

5468 PRINT T3? "ON CAP LOSSES" ? B3? "ON CAP GNS AT MATURITY" 

5478 PRINT "YIELD BEF TAX FORECAST FOR SALE DATE"?Y:-: 

5490 PRINT 

5498 PRINT "NEW BOND" 

5588 PRINT " " 

5518 PRINT 

5 529 PR I NT " PRESENT PR I CE " ', P£ ? " COUPON " S £«C£ 

5538 PRINT "REDEMPTION AT"?R£ 

5548 PRINT "MATURITY" ? M£? "YEARS" »M4J "MONTHS" 

558 PRINT "TAX RATES" ? T£? "ON INCSD4? "ON CAP fiNS AT MATilRITY" 

568 PRINT "YIELD BEF TAX FORECAST FOR SALE DATE"?Y4 
578 PRINT 

5 588 PRINT 

5598 PRINT "SALE DATE IS IN" , SI ? "YEARS"? S£S "MONTH?;" 

5688 PRINT "TAX"?T5?"0N CAP L0SS"?T6?"0N CAP CNs" 

5618 PRINT "OPPORTUNITY RATE A--T"jY9 

5 6 £8 END 



55 

CTET 
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EXAMPLE 

In this example problem the investor is looking ahead 2 years in endeavoring 
to choose between keeping a 2-3/4% debenture bond maturing in 1972 or switch- 
ing to a 5-1/8% debenture bond maturing in 2001. The investor has entered the 
following data for the old and new bonds: 



Book Value (Old Bond) 
Current Price 
Annual Coupon 
Maturity (Yrs./Mths.) 
Redemption Price 
Tax Rate on Coupon Int. 
Terminal Date (Yrs./Mths.) 
Yield at Terminal Date (Est.) 
Capital Loss Rates at: 

Present Date 

Terminal Date 
Capital Gain Rates at: 

Present Date 

Terminal Date 

Maturity Date 
After Tax Reinvestment Rate 
for Coupon Int. (Est. ) 

The redemption price shown includes any call premium and the reinvestment rate 
for coupon interest is per year up to the terminal date. The data may be input 
using DATA statements or entered in response to program prompting. In the fol- 
lowing illustration data has been entered using DATA statements which contain 
all of the above information. 



DO YOU HFlMT INSTRUCTIONS FOR SUPPi YING 'DFlTFi ?MO 

ENTER BOTH ITEMS 1 THROUGH 13 

?9S. 375? 91 ? £. 70? 1 06? =. 40? 845 5. 125? 3£? 9? 3.00? . 40 

ENTER IihTF! ITEMS 14 THROUGH 04 

?£ ? O ? ,05) • 045 ? » £5 ? » £5 ? « t'b ? » c!5 ? « c'5 ? » £5 ? » W3 

TABLE". OF' YIELPF; OHP TERMINAL ' YlLUF'O FN TERM, DOTE TYPF : 
0--EOR MO TABLES 

i-F'OR SEMSITIUITV OF YlFLTi AND TERM I HOI UflLUES TO TERM. 

£--EOE SEHSITIUITY TO YIE! B SPREAD 

3-FOR SF'NSJTIUITY TO Y I El PS 

4-FOR YIELDS AMD TERMINAL UOLUES FiT YOUR TERM DOTE: 

WHICH TABLE DO YQI I WANT ?1 



OLD BOND 


NEW BOND 


$90-3/8 




$91.00 


$84.00 


2-3/4% 


5-1/8% 


2-Yrs./5-Mths. 


32-Yrs./9-Mths 


$100.00 


$100.00 


48% 


48% 


2-Yrs./0-Mths. 


2-Yrs./0-Mths. 


5% 


4-1/2% 


25% 


25% 


25% 


25% 


25% 


25% 


25% 


25% 


25% 


25% 


3% 


3% 
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The example below illustrates how problem data is entered in response to pro- 
gram prompting. 



'DO TOM I'lRhlT IHSTPi iCTT.OM': 

F OL LOMIFlF; ITt'r 



JPPLY 1 HO MfllFl 






ITEM 



T 7 



ITEF 



i i \'- ; ri.z 



ITEM 


3 


ITEMS 


i- 


ITEM 


lr 


ITEM 


I 


ITEMS; 


■i i 


ITEMS 


£'i 


ITEM 


£l 


ITEM 


c, -. 


ITEM 


'."•'- .: 



L.l I. 



Hi -ii'i 1 i jTrf-'C'-.-T 



f • ilJPOi'l Ml'! ri| ,'l'i OOMIi 

5 MhTIIR'IT't 

F'"'00tE BS ! "iM ! ' c npMpT], ! if--! 

IRy POTE MM ....,_.,.. ........ ,.. ,,,..,...... , , 

PRICE" OF" MFTi BOM'D 
mijpfjFi OM MEW BOMD 

II MRIOPITY r!F:H BOM'D ]M YPSOTT! IS. 

PROCEEDS i iM ppijF"! iF'T' j 'jr.! nr;,; ^finD 

the: rote: on mew bomb ifm'trest pmts 
15 yrsotmis to term i mr!.... drtt 

PM,. DIE F Yi'EL'D ULB BOMB TERFL TiFFE-" 
LB FIEF! 'BOM'D TERM. "DOTE 



ORP LOSS j GRIM RATES TERM. URTE' 
ERF' GRIM RATE RT MATURITY OLU BO 
ERR GRIM RATE AT MRTFiRTTY MEW BOFFD 

iiF rep tf-ie; rieinue:st mote: pompoms 



WW 
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After the initial problem data has been entered the program will ask the user 
which of 5 reports is wanted. By typing a to the question "Which Table Do 
You Want?" and a "YES" to the next question the user will be able to verify 
his data input. 



HO YCH: FIONT INSTRUFT JRFF; FOP SUPPLY J NO DOTO ""'DFlTO 

TFI'RLE OF YIELDS OND TFRHJi ll-'H . > "FIFTIES 01 ITR!'!. IlFlTF TYPPs 

8 FOR NCi TRIO ES 

1-F'OP SENS III' I' IT Y Of" YIELDS AHl.i TERMINRE UEFOES T'n TERN, 

ft- FOP PFFEFETOTOTY "• >i Y 1 '' H J""' 1 mm 

3-F'OP OENSITLUTY TO YIO.'MS 

■-I-TTJP YIEI PS Fir ID TERMINAL. MR! FJFL OT YOl.ip IFF 

Uli-ilCII T0DL..T 00 YOO i IONT ?0 

DO YOU RR! TF SUMMARY i'iF FUND DOTO ?Y! :: 



SFJi= 



ijF' FRIT 



YIELD Oii OLD BOND BEFORE' TFlX 

'FIELD OR OLD BOND FlFTLR TRY 

YIELD OR REPURCHASED OLD Bfifin F 

YIEI D OR NET! B0F1D BEFORE TAX 

YIELD ON HEW BOND RF'TEP TAX 

OLI'i BOI ID 



PRFSFRT PRICE; ftj 

rfde:nptior ot isp 

MATURITY ft 'I'FFiF'F; 5 

TRX RRTF'.S =43 OR INC: 

.00 OR CFiP LOSSES 

VI El D 'BEFORE' TAX FORECAST F'OP SALE: DATE 

HEW BOND 



i ni ipfii-i 

BUOF FElLl 



II--' PC 



'IRT'OR IT 



PRESENT PRICE ft 4 nil lpn| 

PiFDENPTION FIT 100 

MATURITY 3£ YET'lPS 9 MONTHS 

TAX RATES .48 ON IS-IC „ ?5 CM i'.flp CMS i : 

yie:lti before taz forecast f'or m\ f: date 



IS AT Mf 



sole: date is in 

TAX ,00 ON CRP I Rftft 

OPPORTUNITY RATE' FPU'' 



:: IT0RITY 
. 040 



NFC 

p.-:; r 



THE 
N C 
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The first table "Sensitivity of Yield & Terminal Values to Term." illustrates 
that for the 2 year future time period a switch for tax purposes would not be 
to the investor's advantage, however there would be a substantial advantage 
to the investor in switching in the new bond's rising terminal value. As the 
dollar advantage in terminal value is roughly the same whether the yield fore- 
casts are achieved in 1/2 year or in 3 years, the terminal advantage of the 
new bond, if earned quickly (yield comparisons show early achievement) would 
prove to make the switch even more profitable. 



■I-3ITIUIVY OF YIELD HMI'i Tf.RNINRL. WOOES TO TT'RO. DhTE 01 lETTO 

0*0 L'Hl E V it'll! Til 1 '■'•"Rhll iOI, HH'Tr T i- Vl v ITM ! -j| i ip* i jP 
■i YEOPS) 

0! U BOOT! TOY ST I. MET! 'BOOT) 9L.D 1:001) Tf\V, Ski, OFT! BOOS 

y-J'-i i; 0'S 17 9iS.ll 90,1 110 .08 



i\: 



.■1 



'1 0.0 17,47 



i 







•6. 1 


96 . cO 


■: 


'b, '::■!: 


98 . 4 


*- 


'9„ 3 : t 


99 « 96 




'.' a I' '"'i* 


10 1.5 4 


1 1 


| ] „ ! '~i ~~\ 


103.16 


ll 


!'::! . 1 4 



1 0. 69 99., 9A 99. 94 1 



1 . 0? 

16. fc.S 
.. 18.09 
119.56 
101.05 



After the print out of the first table the user is once again queried as to 
which table he wants. In this second illustration the user has responded by 
typing a 2, calling for the "Sensitivity of Yield & Terminal Value to Spread 
at Term." table. Additional information is required for this table and the 
user in response to program prompting has supplied the range of spreads over 
which the analysis is to be made. In the example the spread ranges from -100 
basis points to +100 basis points with the results to be shown in increments 
of 30 basis points. The table illustrates that the more negative the spread 
at the terminal date, the more profitable the switch will be. To determine 
at exactly what point a switch would cease to be profitable, rerun the pro- 
gram using different spreads. Note: The table uses the old bond's original 
yield forecast while the yield forecast for the new bond is varied in incre- 
ments of 30 basis points. 
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WHICH TABLE' IJiJ YOU HAH 



Dh " Il'alh'n !: Eh; IRF Or ' il-'K;- . , fi ! ; |M 1 T"; i u iTi VT 

1EPMTIIRI rifiTT . i INPUT i R RH '•;: 'Ri- i-V'i, |.i>! -;:F " ,! ^F' i : II i HUM i 1 1! pn-iF.NT 

HI yfisl's POiNTS, r'ljR !■ RFiRF'l F , -■ j OR? AFu? . :v " : i, 

?- J 08? j FRi? 30 



SENSITIUITY OF YIELlJ AHD TRRHIHRL UFiL.UE TO SPREAD RT TERM. 
OLD BOMB YIELD HELD CONSTANT 



SPREAD 

(IN BASIS PL 



YTFLP TO TLRHIHfil. DATE 



rEPHIHRL UFll HE 



-1. .'l:"i„ !.r!:'-li.'ii--r. ' 

- 7 :- : i. FlFli ii. i 

-4i?!„ !.ii .-ifli.'- .[ 

-1H« i"IM!--il-i-;. 

IT 1 . R'-ll-!' : -: 

49. y-) c y- A ^'. 

~'C| ••.■|qq.;i7' 



BOND TAX C TE FIE Ui BOND 



i 1 I 



i! ji SUM !!.! 



.;i,'.,i 



39 „ 44 ! ■' ] 
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In this illustration the investor has requested a print out of table #3, the 
"Sensitivity of Yield & Terminal Value to Yield at Term." In response to pro- 
gram prompting the investor has specified a high yield of 6% and a low yield 
of 5% (original estimate) for the old bond at the terminal date and has in- 
dicated he would like to see the comparisons made in increments of 20 basis 
points. As the table shows, if the old bond is yielding 6% at the terminal 
date rather then the 5% originally estimated by the investor a switch would 
still prove to be profitable, but it would be considerably less advantageous. 
Note: For this illustration the yield spread has been held constant at the 
original -50 basis points already entered in the program data. 



NHICH TABLE' DO YfHJ MOOT ?3 



DESIGNATE RANGE OF OLD BOND YIELDS AT TEENINFlL DATE. 

INPUT HIGH VIE! D? I ON VI ELD AND INCREMENT DESIRED? 

FOR EXAMPLES .06? ,05? . OOS\ 
'? . OS ? . 05 ? . 00£ 



SENS I T I U I TV OF Y I ELD AND TE'E'N . NHL LIE T i j 

SPREAD HELD CONSTANT, 



ELD AT TFEL 



YIELD 
(OLD BOND) 



YIELl! TO TEEN I HAL DAT? 



irPIIINRj 



l'i DOi"' 

"t a i' 



. 054 



1 .;:: „ fc.y 

I 1 . 1 1 



.. D 


.C :i ..»■ 'i l'< 




-'. i. 


, 


ML!-! hm' if 


!'-;= 


Ci i:.' 


'-•'■■•! 


'--!.:! 




i i O • '■■■.. 






n 






j j . ' r. 


'9 „ 


'::- ! 








! I !: -'' . r'j: i: :: 














j'_.| 










1 ' "■' : ' 






.-■" .' B 


■ .•■-,... 






!•;.„ 


* i 

" ■":* ■■( 


'■: ! 9 B 


7 b 




1 HSEt 


i'-.j 




: — i '• f 










■: ..... 










[Q 


i"t!"i 


■ .'.; ■:..; 


f,4 




■j ;.. : |'=, ■:.'•:.! 
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Finally, the investor responds by typing a 4 to the question "Which Table Do 
You Want?". This table of "Yields & Terminal Values at Terminal Date" uses 
the data originally supplied to print out a table of yields and terminal val- 
ues as of the terminal date. 



WHICH TABLE DO VOW WANT 



'I ELD 
"I ELD 

'I ELD 



TC 

Tf 
T( 



: ;AL£. 



i 'BALE I 



JATE fi,-T 
iflTEI IVT 
JFlTE H r 



;;|-|j-.|ri KEPT 



■■!: , P|---j:-t-.!i 



.M 



•l ttl: sw 
-i switch 



ITCH 
TCi HE 



JHTi 



TEEM I HAL UfiLl 
TERM I HAL WALUE 
TERMINAL WALUE 



j. 



OF 



OLD DONTi 
TAX SHUT 






T 



:■•] 
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RELIABLE COMPUTER SOFTWARE 




FOR YOUR DOWN TO EARTH TASKS 



SCIENTIFIC RESEARCH INST. 



Irofton, I'idryl-and 



SIC SOFTWAEE LIBRAR 



